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eNLIST SEQ,LOC,BIN 
-REM ; 


IDENTIFICATION 


PRODUCT CODE: AC=S884A-MC 
PRODUCT NAME: CZKMEAO DMS11=DA DYNAMIC 
PROGRAM DATE: SEPTEMBER 1981 


MAINTAINER: CSS/NPG DIAGNOSTICS 
‘AUTHOR : R. C. BALDWIN 
R. J. COLLINS 


COPYRIGHT (C) 1982 BY 

DIGITAL EQUIPMENT CORPORATION, 
MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY 
BE USED AND COPIED ONLY IN peg Arty THE 


USION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY sf ag ld OR OTHERWISE 


ER PE NO TITLE TO 
AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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1.0 ABSTRACT 


THE a AP -D,-A,-DA ah UNIT DYNAMIC DIAGNOSTIC TESTS THE LINE UNIT 
FOR BOTH CCP’& BOP MODES IN THE USYRT MAINTENANCE ne imi: DIAGNOSTIC 


caae PURPOSE MICROPROCESSOR. THIS DIAGNOSTIC IS A STAND ALONE 


2.0 REQUIREMENTS 
2.1 EQUIPMENT 
PDP-11 PROCESSOR 
KMC11 GENERAL PURPOSE MICROPROCESSOR 
NOTE: THIS DIAGNOSTIC WILL TEST UP TO 16 KMC11 
GENERAL PURPOSE MICROPROCESSOR'S, BUT THEY 
DAS11<D LINE “ BE INSTALLED SEQUENTIALLY ON THE BUSS 


UNIT 
NOTE: we WILL TEST UP TO 8 LINES PER 


2.2 STORAGE 
THIS DIAGNOSTIC NEEDS A MINIMUM OF 16K OF MEMORY LOCATIONS 

2.3 PRELIMINARY PROGRAMS 

CZKMBAO KMC11-B STATIC PART1 

CZKMCAO KMC11-B STATIC PART2 

CZKMDAO DMS11-DA DYNAMIC 

PRIOR TO EXERCISING THE DYNAMIC DIAGNOSTIC THE KMC11 MUST BE ERROR 
FREE. THIS DIAGNOSTIC DOES NOT TEST THE KMC11 

3.0 LOADING PROCEDURE 

3.1 METHOD 

LOAD THE DIAGNOSTIC USING THE ABS LOADER. THIS DIAGNOSTIC 
SELF STARTING. TO RESTART THE DIAGNOSTIC LOAD ADDRESS sy 


AND DEPRESS START. IF THE DIAGNOSTIC_IS ON MAGNETIC ME 
FOLLOW THE INSTRUCTIONS FOR THE MONITOR BEING USED. 
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4.0 STARTING PROCEDURE 
4.1 STARTING ADDRESS (200) 


4.2 RESTART ADDRESS 


RESTART ADDRESS 200 (8) 
4.3 OPERATOR ACTION 


DURING THE INITIAL START UP THE 4 ry gy Ad WILL OUTPUT TO THE 
TELETYPE THE TITLE OF THE DIAGNOSTIC AND ENTER THE MONITOR. DURING 
A RESTART THE DIAGNOSTIC WILL NOT OUTPUT THE TITLE OF THE DIAGNOSTIC 
BUT ENTER THE MONITOR DIRECTLY. AFTER ENTRY INTO THE DIAGNOSTIC 
MONITOR THE OPERATOR CAN ENTER THE COMMANDS LISTED IN SECTION 

4.4 OF THIS WRITEUP. 
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5.0 STARTING AND TEST INITIALIZATION: 


LOAD AND START MEMORY ADDRESS 200 BY PRESCRIBED 
METHOD AS PER PDP-11 PROCESSOR TYPE. 
Tech eTAAT Sapa WILL IDENTIFY THE DIAGNOSTIC ON THE 
THE CONSOLE MONITOR ROUTINE IS ENTERED EACH TIME ON START 
UP AND OFFERS THE ey THE FOLLOWING CHOICES AS 
(1) DIAG. TEST (2) FIG 
TO WHICH THE a chaniia “RUST RESPOND WITH A 1 OR 2 
Lee eA CARRIAGE RETURN. 


G. TE 
DIAG. TEST IS ENTERED IF THE CONFIGURATION ROUTINE HA 
BEEN PREVIOUSLY ENTERED AND IF NOT WILL AUTOMATICALLY 
GO INTO THE CONFIGURATION ROUTINE TO SPECIFY KMC11(S) 


~ 
on 
el 
> 


q 
Ss 


STATUS. 


BEFORE EXECUTING TESTS AN OPERATOR'S WARNING MESSAGE IS PRINTED 
INFORMING OF CONFIGURATINO TABLE UNITS REQUIRING EXTERNAL LOOP 
CONNECTORS BE INSTALLED. 


UNITS REQUIRING LOOP CONNECTORS 
UNIT # 1 


cow Te 


(2) CONFIGURE 

WHEN THE CONFIGURE MODE IS ENTERED FOR THE FIRST TIME 

THE CONFIGURE TABLE IS ENTERED FROM THE TOP AND THE FIRST 
KMC11 IS SPECIFIED 


~ADR.= (6 OCTAL CHARACTERS) 74 ADDRESS OF KMC11 CSR 
os LECT MODE 


D 
( 
(1) E (6) D ABLE TF 0, UNIT WON'T BE TESTED 
iene NO cat=32 TESTING i IF Bo WITH CRC32 & INTERNAL (***) 
D 


1 
EV.VEC.=(3 OCTAL_ CHARACTERS) VECTOR ADDRESS OF RECEIVE INTERRUPT 
(1)EXTERNAL (0) INTERNAL ;SELECT LOOPBACK 

INT.PRI._(4=7) INTERRUPT PRIORITY LEVEL 

LINES(O-7) (1.E..4,4,4) OR (A)=ALL (N)=NONE SELECT ENABLED LINES 


(* *) IF BOP MODE WAS REQUESTED THE INQUIRY IS PROMPTED AND MUST 
BE ANSWERED ACCORDING TO WHETHER THE DMS11, IS A DMS11-A, DMS11-D OR DMS11-DA. 
DMS11-A & DMS11-D HAVE CRC-32 AND DMS11-DA DOES NOT. 


(***)MESSAGE IS PRINTED IF BOP MODE WITH CRC-32 AND OPERATOR 
REQUESTS TO RUN INTERNAL LOOP BACK MODE. 
DMS11~A: SELECT LINE 0 ONLY 


mo 
~~ 


NOTE: IF STATUS IS NOT TO BE CHANGED ON CURRENT INQUIRY A CARRIAGE 
RETURN (ONLY) MAY BE TYPED 


SEQ 0004 


Om 
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AFTER THE INPUTTING IS COMPLETED AN ‘‘s’’ IS PRINTED AT WHICH POINT 
THE OPERATOR HAS 3 CHOICES BY TYPING AN 


. (EXIT) THE CONFIGURE ROUTINE (ENTERS ee ROUTINE OR 
DIAG. TEST IF DIAG. TEST WAS THE ENTRY POINT 


i. (MODIFY) AN M FOLLOWED BY A #1-16 (DEC) TO SPECIFY THE DESIRED 
KMC11°S STATUS TO BE MODIFIED. THE STATUS BLOCK IS PRINTED 
AND THE NEW STATUS INVOLKED. 


a (ALL) FROM LAST KMC11_ PARAMETER “ae POINTED TO EITHER BY 
THE INITIAL ENTRY OR THE ‘MODIFY'* ROUTINE SHE REMAINING 
BLOCKS ARE LOADED WITH THE SAME CONFIGURATION STATUS TO THE END 
OF THE CONFIGURATION TABLE. 


* ANY COMBINATION OF DEVICE STATUS CAN BE CONFIGURED AND RUN AS 
LONG AS AT LEAST 1 KMC11 IS ENABLED IN THE TABLE 


CONTROL : 
TYPING A CNTR C (*C) WILL FORCE ENTRY TO THE MONITOR 
ROUTINE. 


PROCESSORS WITHOUT CONSOLE PANELS WILL HAVE A SOFT 
SWITCH REGISTER WHICH IS INVOLKED BY THE OPERATOR TYPING 
A_CNTR G (*G). AFTER THE NEW SWITCH VALUE IS ENTERED THE 
PROGRAM IS RESUMED AT POINT OF “G INVOLK. 





Om 
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5.1 SWITCH OPTIONS: 


THE SWITCH REGISTER SETTING MUST BE = ACCORDING TO 
PROCESSOR TYPE AND HARDWARE ARCH I TECT 


BIT15 = 1 HALT ON ERROR 

BIT14 = 1 iLO ON TEST 

BIT13 = 1 2 pt ERROR _TYPEOUTS 
BIT10 = 1 NG BELL ON ERROR 
BITO9 = 1 ‘COOP ON ERRO 


TEST EXECUTION + SEQUENCES: 


EACH TEST MUST BE age tgp aa bad COMPLETED 
BEFORE THE NEXT CAN BE ENTERED. ALL ieee 
ARE RUN yg ie ON EACH UNIT (KMC + 
DMS11D) AND THE CURRENT DEVICE IS SPECIFIED 
BY THE SEQUENCE OF THE CONFIGURATION TABLE 
(ENABLED UNITS ONLY). 


6.0 ERRORS 


ALL ERRORS ARE REPORTED ON THE TTY UNLESS CONSOLE SWITCH 

13 IS SET (REFER TO SECTION 5.1 OF THIS WRITEUP). ALL ERRORS 
REPORTED HAVE A ENGLISH TYPE STATEMENT EXPLAINING THE ERROR 
WITH OUTPUT OF oak REGISTERS OR MEMORY LOCATIONS WHICH 
CAN BE USED AS AN AID. 


6.1 ERROR REPORT NG: 
ERROR LOGGING CONTROL IS IN ACCORDANCE 1 THE SWITCH 
REGISTER SETTINGS AS DESCRIBED UNDER ‘'SWITCH OPT 
ALL ERROR REPORTS ARE HEADED BY THE FOLLOWING. o> ha am 


L.UNIT 
(# OF FAILING UNIT) (# OF FAILING TEST) (# INDICATING THE FAILURE) 
Me ADDITIONAL FIELDS ARE_IN ACCORDANCE TO THE TEST A 


ND 
ATA tlhe OF CONCERN. THE FOLLOWING DESCRIBES THE POSSIBLE 
DATA FIELDS. 


SHBE = THE (SHOULD-BE) VALUE OF THE EXPECTED DATA OF THE 
SUBTEST (FAIL #). THE SHBE VALUES ARE et IN 
THE SECTION “TEST rag. AND FAILE _# INFORMATION:"' 
WITH RESPECT TO THE FAIL # 

WAS = 


_. (WAS) FIELD IS THE VALUE 1} eee 4 PERTAINING 
TO THE DATA OR STATUS UNDER TEST. THE WAS VALUES 
ARE o gr IN THE, SECTION “TEST yet — 
FAIL # INFORMATION:"' WITH RESPECT TO THE FAIL # 


LINE # = THE NUMBER OF THE eaten DMS11 MULTIPLEXED LINE 
IN THE RANGE OF 0 THROUGH 7. 





CZKMEAO_DMS11=DA DYNAMIC 


CZKMEA.P11 


DEV. ADR. 


20-0CT-81 17:05 


= FIRST CSR ADDRESS OF UNIT FAILING. 


THE F 
T_TIME OF DETECTED FA 
NOTE: NOT ALL CSR'S CONTENTS or x PERTINENT - THE 
E ED ERROR, THIS IS DUE TO THE 


NCOUNTER RR 

SPECIFIC a dA THE OPERATOR MUST BE FAMILIA 

WITH THE PROTCOL HANDBOOK AND REGISTER USAGE WITH 

RESPECT TO THE COMMAND CURRENTLY REFLECTED IN THE CSR'S. 
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BUFEA = 


BUFADR = 
= TRANSMIT BUFFER ADDRESS THAT SHOULD BE RETURNED 


T=BUF F 


R-BUFF = 


CUR-EA = 


CURBUF 


BITS 0 + 1 DISPLAY ADDRESS BITS 16 + 17 ne 
OF THE CURRENT BUFFER ADDRESS UNDER TEST 


LOW ORDER 16 BITS OF BUFFER ADDRESS UNDER TEST. 


(FROM THE KMC11). 


3 BUFFER ADDRESS THAT SHOULD BE RETURNED 
FROM THE KMC11) 


BITS 0 + 1 DISPLAY ADDRESS BIT 16 + 17 saa siseanpeat 
OF THE CURRENT BUFFER ADDRESS UNDER TEST 


= LOW ORDER 16 BITS OF BUFFER ADDRESS UNDER TEST. 


SEQ 0008 


on 
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7.0 


7.1 


7.2 


TEST INFORMATION 

TEST EXECUTION + SEQUENCES: 

EACH TEST MUST BE SUCCESSIVELY COMPLETED 

BEFORE THE NEXT CAN BE ENTERED. ALL fests 
ACH UNIT (KMC + 


BY THE SEQUENCE OF THE CONFIGURATION TABLE 
(ENABLED UNITS ONLY). 


TEST DESCRIPTIONS AND FAIL # INFORMATION: 


TEST 1 


THIS TEST CHECKS FOR THE PRESENCE OF THE 
CURRENTLY ENABLED KMC-11 BY INITIALIZING THE 
FIRMWARE AND TESTING THAT THE FIRMWARE RESPONDS 
BY CLEARING *BSEL2"’ 

reg again 

1=KMC~11 Pree ADDRESS DOES NOT RESPOND 
2=KMC-11 FIRMWARE FAILED TO INITIALIZE 


DEV.ADDR. 
(BASE ADDRESS OF FAILING UNIT) 


TEST 2: 


THIS TEST CHECKS THAT THE READY y BIT erro IS 
eee AND CONTROLLED BY THE F ey READY IN 


Y_IN 
RMWARE, THEN REQUEST IN 
IS CLEARED AND READY-IN TESTED FOR BEING CLEARED BY THE FIRMWARE. 
ERROR REPORT: 
FAIL #S 
1=KMC-11 FAILED TO INITIALIZE 
2=KMC-11 READY IN BIT SET WITH NOT REQUEST-IN 
=KMC-11 FIRMWARE FAILED TO SET READY-IN WHEN REQ. IN WAS SET 
4=KMC-11 FIRMWARE FAILED TO CLEAR READY~IN WHEN REQ. IN WAS CLEARED 


SHBE 
(STATUS SELO SHOULD BE) (STATUS SELO READ AS) (* IF PERTAINING) 


T 3: 
THIS TEST CHECKS THAT THE KMC-11 FIRMWARE IS N 


REQUESTING AN OUTPUT OF ANY TYPE, BY EXAMINING OBSEL2 
OF THE KMC-11 CSR'S 


SEQ 0009 
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ERROR REPORT 

FAIL #S 

1=F IRMWARE FAIL TO INITIALIZE 

2=KMC-11 REQ AN OUTPUT AFTER BEING INITIALIZED 


SHBE W. 
(STATUS BSEL2 SHOUL? BE) (STATUS BSEL2 READ AS) 


TEST 4: 


THIS TEST we DO A LINE INITIALIZE_TO ALL LINES 
AND _TEST T THE READY-IN BIT (BIT7=BSELO) SETS 
INITIALIZE COMMAND 


ans _—— 
eps ms ho ge 3 FAILED TO INITIALIZE 


2=CANNOT ISSUE AN INPUT COMMAND (OUTPUT REQUESTED OR RDY-IN FAILED) 
S=FIRMWARE FAILED TO COMPLETE LINE INITIALIZE COMMAND. 


SUCCESSIVELY) 
FTER EACH 


TEST 5 


THIS TEST WILL ISSUE A “TRANSMIT BUFFER IN'' TO EACH LINE 
AND TEST THAT EACH COMMAND ACCEPTS. 

ERROR REPORT: 

FAIL #°S 


L 
1=F IRMWARE FAILED TO INITIALIZE 
2=INPUT CANNOT BE ISSUED (FIRMWARE HUNG OR OUTPUT PENDING) 
=XMIT BUFFER IN FAILED TO COMPLETE 


TEST 6: 


ST 7: 
THIS TEST CHECKS THAT EACH LINE CAN ACCEPT AND / 


THIS TEST WILL ISSUE A "RECEIVE BUFFER IN'’ TO EACH LINE 
AND TEST THAT EACH COMMAND ACCEPTS. 


og, REPORT 


IL #'S 
1=FIRMWARE FAILED TO INITIALIZE 
2=INPUT CANNOT BE ISSUED (FIRMWARE HUNG OR OUTPUT PENDING) 
3=RECEIVE BUFFER IN FAILED TO COMPLETE 


I 
TRANSMIT - RECEIVE BUFFER. EACH LINE IS INITIA 
phe MAINT. LOOP AND CLOCK JS ENABLED AND TWO RECE 

D ONE TRANSEMI1 BUFFER ARE THEN QUEUED TO THE L 
TEST. *A SERIES OF TESTS ARE PERFORMED TO CHECK T 


@ 0010 


7 Sue ee ee 
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TEST 


1) THE FIRST RECEIVE BUFFER IS RETURNED WITH AN EMA (1) 
STATUS AND THE CORRECT ENDING MEMORY ADDR 

2) THE TRANSMIT aeeets IS RETURNED uITH A 1 STATUS AND THE 
CORRECT MEMORY ADDRESS. 

THE FAIL #*°S RANGE FROM 1 TO 22 (OCTAL) 


ERROR REPORT 
TEST # FAIL # LINE # SHBE CSRO CSR2 CSR4 CSR6 
TSTNUM ERNUM CURLIN SHBE CSRO CSR2 CSR4 CSR6 


FAIL # 
1=FIRMWARE FAILED TO INITIALIZE * 
=CURRENT LINE FAILEO ny. er tas “st INITIALIZE * 


=MAINTENANCE COMMAND ( T CLOCK + INTERNAL LOOP) FAILED TO COMPLETE * 
4=1ST ‘BUFFER IN’ COMMAND MURECEIVE BUFFER) FAILED TO COMPLETE * 

5=2ND ‘BUFFER IN'’ COMMAND (RECEIVE BUFFER) FAILED TO COMPLETE* 
6=3RD E OMMAND (TRANSMIT BUFFER) FAILED TO COMPLETE * 
7=BIT 5 OF SEL2 FAILED TO SET WITHIN eas tise TIME (FIRST BUFFER) 
10=1ST COMMAND (SEL2) NOT PROPER RETURNED BUFFER TYPE 

11=1S1 STATUS (SEL7) NOT = 1 ‘ ot REACHED) 

12=1ST RETURNED LINE NUMBER IS INCORRECT (SEL3) 

13=1ST ENDING BUFFER ADDRESS EXTENDED BITS (SEL7) INCORRECT 

14=1ST ENDING BUFFER 16-BIT ADDRESS (SEL4) INCO 

15=BIT 5 OF sels FAILED TO SET WITHIN SPECIFIED ye (SECOND BUFFER) 
16=2ND COMMAND (SEL2) NOT PROPER RETURNED BUFFER TYPE 

17=2ND STATUS (SEL?) NOT = 1 (END COUNT REACHED) 
20=2ND R NE S_INC 


RETURNED LINE NUMBER I ORRECT (SEL3) 
21=2ND ENDING BUFFER ADDRESS EXTENDED BITS (SEL7) INCORRECT 
22=2ND ENDING BUFFER 16-BIT ADDRESS (SEL4) INCORRECT 

ae sean Ea AN INPUT FUNCTION AND AN OUTPUT IS PENDING 


H IS ABANDONED AND SEL2 WILL 
SHOW THE OUTPUT REQUEST, OTHERWISE IT IS ASSUMED THAT THE 
FIRMWARE IS NON-RESPONSIVE 


10: 
THIS og CHECKS THAT A LINE OVERFLOW thls ny WILL RETURN A 
L_OUT’’ STATUS INDICATING THE LINE OVERFLOW. 
Sy CINE IS TESTED FOR RETURNING THE or hate STATUS BY INITIALIZING 
THE LINE, UEING A_10 CHARACTER TRANSMIT BUFFER AND A 1 
RECIEVE BUFFER AND TESTING THAT A CONTROL OUT COMMAND INDICATING 
A LINE OVERFLOW FOR THE CURRENT LINE IS RETURNED AFTER THE REC. BUFFER IS RETURNED 


ERROR REPORT: 
FAIL #°S 


1=INITIALIZATION OF THIS TEST FAILED (FIRMWARE HUNG OR OUTPUT REQ.IS SET) 

2=RECEIVE g the IN FAILED TO LOAD 

3=TRANSMIT BUFFER IN FAILED TO LOAD 

rw th + Ag NOT aH 

5=CONTR Bag D aye ‘os RETURN 
=RETURNED NOT p. CONTROL OUT 

7=SEL7 DOES “NOT NOT INDICATE A PINE 0 VERF LOW 

10=RETURNED LINE # (SEL3) IS INCORRECT. 


SEQ 0011 


Om 
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TEST 11: 


THIS TEST we NS THAT THE RECEIVE BUFFERS ARE KILLED BY THE “LINE RESET’’ 
COMMAND BY INIT eg ee THE ya} LINE, QUEUEING A SHORT RECEIVE BUFFER 
TO THE LINE, ISSUEING A “LINE RESET’ C D, STARTING THE 

MAINTENANCE CLOCK QUEUING a SECOND RECEIVE BUFFER TO THE LINE, 

SENDING A ‘ort TRANSMIT BUFFER TO THE LINE, 

AND_TESTING THAT A CONTROL OUT COMMAND IS RETURNED (LINE OVERFLOW 

OF THE CURRENT LINE) AFTER ONE RECEIVE BUFFER OUT IS RETURNED. 


wm? REPORT: 


AIL # 
i INITIALIZATION OF THIS TEST FAILED ((SHBE=0) 
2=RECEIVE BUFFER FIALED TO LOAD (SHBE=0) 

3=CONTROL_IN COMMAND (LINE RESET) CANNOT BE ISSUED (SHBE=0) 
4=LINE RESET wr: FAILED TO COMPLETE (SHBE=0) 

5=CLOCK FAILED TO START 

6=2ND RECEIVE gUrFER FAILED TO LOAD (SHBE=0) 

7=TRANSMIT BUFFER IN FAILED TO LOAD (SHBE=0) 

: ECEIVE the OUT WAS NOT RETURNED (SHBE=0) 

1 
1 


=R 

=AN OUT 

=LINE OVERFLOW BIT IN SEL? NOT SE 

=LINE # (SEL3) NOT SAME AS LINE UNDER TEST 


TEST 12 


THIS TEST WILL CHECK THAT THE TRANSMIT BUFFERS ARE KILLED BY A 


LIN 
QUEUEING A TRANSMIT BUFFER TO THE LINE, ISSUING A LINE RESET 
COMMAND, STARTING THE CLOCK, AND TESTING THAT NO 

OUTPUT IS RETURNED FROM THE KMC. 


ERROR REPORT: 
FAIL #° 


1=F IRMWARE HUNG OR REQUESTING TO DO AN OUTPUT (SHBE=0) 
2=TRANSMIT BUFFER IN FAILED TO COMPLETE (SHBE=0) 
=LINE RESET COMMAND FAILED TO COMPLETE (SHBE=0) 
4=MAINTENANCE COMMAND FAILED TO START CLOCK (SHBE=0) 
=AN OUTPUT COMMAND WAS RETURNED FROM THE KMC (SHBE=0) 


ST 13: 
THIS TEST WILL pee THAT THE ‘*IN ABORT’’ COMMAND DOES 
TERMINATE ANY OF 


NOT 

THE TRANSMIT BUFFERS BY INITIALIZING EACH 
LINE. SENDING, A TRANSMIT BUFFER TO THE LINE THEN ISSUEING 
A LINE ABORT VIN’ (BIT1 SEL7=1) TO THE LINE, AND TESTING 
THAT THE NORMAL XMIT BUFFER OUT (EMA) IS RETURNED 


S NOT RETURNED FROM ne KMC (INDICATING A LINE OVERFLOW) (SHBE=0) 


cet oe] 
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net 

=FIRMWARE HUNG OR AN iT ‘ae PENDING IN TEST SETUP ROUTINES 
ANNOT BE ISSUED 

LINE ABORT COMMAND FAILED D ue amon 


NO OUTPUT REQUESTED AFTER ABORT COMMAND 
STATUS ON XMIT BUFFER OUT IS NOT ENDING MEMORY ADDRESS (1) 


Quik wny 
“anunnunu 


TEST 14: 
THIS TEST WILL CHECK THAT THE ‘OUT ABORT’’ COMMAND DOES NOT 
TERMINATE ANY OF THE RECEIVE ee BY INITIALIZING EACH 
LINE, SENDING A RECEIVE BUFFER TO THE LINE, THEN ISSUEING 
A LINE ABORT ‘OUT’ (BIT1 SEL7=1) TO THE LINE, AND TESTING 
THAT NO STATUS (BUFFER OUTS) IS RETURNED. 


Abas 
1=F IRMWARE HUNG OR AN OUTPUT REQUEST PENDING IN TEST SETUP ROUTINES 
2=BUFFER IN FAILED TO COMPLETE 
=ABORT cone ae ncaa | BE ISSUED 
4=LINE ABORT COMMAND FAILED TO COMPLETE 
5=OUTPUT IS BEING REQUESTED AFTER THE ABORT COMMAND 


| 
TEST 15: 

THIS TEST WILL CHECK AN "‘ABORT OUT’ COMMAND WILL RETURN (KILL) 

THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST, BY oie 

ALL LINES, SENDING A TRANSMIT BUFFER TO EACH LINE, THEN ISSUEIN 

A LINE ABORT OUT COMMAND TO EACH LINE INDIVIDUALLY, TESTING THAT 
ONLY THE BUFFER QUEVED TO THAT LINE IS RETURNED WITH A 


STATUS (SEL6) OF (-6) *‘TERMINATED ON REQUEST"’. 
reg?! REPORT: 
FAIL #°S 


1=F IRMWARE HUNG OR OUTPUT REQ. WHEN INITIALLY SETTING UP TEST 
¢ =TRANSMIT BUFFER IN FAILED TO on Se 0) 

=ABORT COMMAND CANNOT BE ISSUED. ( E=0) 

4=THE ABORT COMMAND FAILED TO COMPLETE (SHBE=0) 


NE # RETURNED VNOT CORRECT (SHBE=LINE #) 
ATUS RETURNED (SEL6) NOT ‘*TERMINATED ON REQ.*'(-6) (SHBE=~-6) 


wr 
—T) 


ST 16: 
THIS TEST WILL CHECK AN ‘ABORT IN*’ COMMAND WILL RETURN (KILL) 
THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST BY INITIALIZING 


aon 
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Ws LINES, SENDING A RECEIVE BUFFER TO EACH LINE, THEN ISSUEING 
~ ABORT IN'' COMMAND TO EACH LINE INDIVIDUALLY, ronan THAT 

ONLY THE BUFFER QUEUVED TO THAT LINE IS RETURNED WITH 

STATUS (SEL6) OF (=-6) ‘‘TERMINATED ON REQUEST"’. 


ERROR REPORT : 


3 aS 
FIRMWARE HUNG OR OUTPUT REQ. WHEN INITIALLY SETTING UP TEST 
RECEIVE BUFFER IN FAILED TO LOAD (SHBE=0) 

ABORT COMMAND CANNOT BE ISSUED (SHBE=0) 
ABORT COMMAND FAILED TO COMPLETE (SHBE=0) 

IMING TRANSMIT BUFFER IN FAILED TO COMPLETE (CCP ONLY) 

ABORTED yg RETURNED (SHBE= 
T VALID AS PER SEL2 (SHBE=SEL2) 

LINE # RETURNED NOT CORRECT (SHBE=LINE #) 

STATUS RETURNED (S ERMINATED ON REO.'(=6) (SHBE=-6) 

PRIMING TANSMIT BUFFER FAILED TO RETURN (CCP ONLY) 


SOU EWN 
bene 
SRrom 

=x 
mm 


mo ll 


unna 


wm 
fa 
oa 
~~ 
2 
~ 
+ 


TEST 17: 
THIS TEST CHECKS THAT AN ALTERNATE ‘'TRANSMIT’’ BUFFER CAN BE QUEUED 
EAC AN E T COMMAND 


S RETURNED WHEN A LINE AB 
IS ISSUED. AFTER EACH LINE IS TESTED FOR RETURNING ITS 
BUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE 


aia tal 
=FIRMWARE HUNG OR OUTPUT REQ. ON INITIAL TEST SETUP ROUTINES 
=1ST TRANSMIT BUFFER IN FAILED TO SP tei =0) 


rr 
i] 


S=ALTERNATE TRNASMIT BUFFER FAILED T 

4=ABORT COMMAND C E isa 

S=LINE ABORT COMMAND FAILED TO COMPLETE 

7=NO RESPONSE (OUTPUT) AFTER yee: BUFFER (1ST BUFFER) (SHBE=200) 

10=OUTPUT NOT A BUFF OUT OR BIT2-SEL2 SHOWS gS at BUFFER TYPE (1ST BUFF) (SHBE=200) 
17=LINE NUMBER (SEL3) OF RETURNED BUFF INCORRECT (1ST BUFFER) (SHBE=LINE #) 
12=RETURNED BUFFER STATUS (SEL6) NOT A ~6 (1ST BUFFER) (SHBE=-6) 

14=2ND ABORT COMMAND CANNOT BE IS nee 

15=2ND CINE ABORT COMMAND FAILED T Fae ates E 

hae RESPONSE yoy AFTER ABORTING BUFFER (2ND BUFFER) (SHBE=200) 


PUT NOT A BUFF OUT OR BIT2-SEL2 SHOWS INCORRECT pape TYPE (2ND BUFF) (SHBE=200) 
21=LINE NUMBER (SEL3) OF RETURNED BUFF INCORRECT (2ND BUFFER) (SHBE=LINE #) 
22=RETURNED BUFFER STATUS (SEL6) NOT A -6 (2ND BUFFER) (SHBE=-6) 
24=LAST ALTERNATE BUFFER FAILED 10 LOAD 


TEST 20: 
THIS TEST CHECKS THAT AN ALTERNATE ‘RECEIVE’’ BUFFER CAN BE QUEUED 
TO EACH LINE AND IS RETURNED WHEN AL 
IS ISSUED. AFTER EACH LINE IS TESTED FOR RETURNING ITS 





SEQ 0014 


Cm 
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BUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE 

FAIL — 

OUTPUT REQ. ON INITIAL TEST SETUP ROUTINES 
(SHBE=0) 


FIRMWARE HUNG OR 
=1ST TRANSMIT BUFFER IN FAILED TO i 
=ALTERNATE TRNASMIT BUFFER FAILED TO LOAD 
ORT COMMAND 


=AB' 

=LINE ABORT COMMAND FAILED TO COMPLETE 

=PRIMING TRANSMIT BUFFER FAILED TO LOAD (CCP ONLY) 

=NO RESPONSE (OUTPUT) AFTER ABORTING BUFFER ist BUFFER) (SHBE=200) 


2 


TPUT NOT A BUFF OUT OR BIT2=SEL2 SHOWS INCORRECT BUFFER TYPE (1ST BUFF) (SHBE=200) 
NE NUMBER (SEL3) OF RETURNED wy h eT iis BUFFER) (SHBE=LINE #) 

TURNED BUFFER STATUS (SEL6) NOT A =6 ( UFFER) (SHBE=-6) 

PRIMING TRANSMIT BUFFER NOT RETURNED (cee ONLY) 

2 T COMMAND Nat | BE 


zr 
me 


T COMMAND FAILED TO COMPLETE 
PRIMING TRANSMIT BUFFER FAILED TO + CP ONLY) 
SPONSE (OUTPUT) AFTER -, wel BUFFER (2ND BUFFER) (SHBE=200) 
PU BUFF OUT OR BIT2-SEL2 SHOWS INCORRECT BUFFER TYPE (2ND ws (SHBE=200) 
=LINE NUMBER (SEL3) OF RETURNED +g INCORRECT AF ND BUFFER) (SHBE=LINE # 
22=RETURNED BUFFER STATUS (SEL6) NOT A -6 (2ND BUFFER) (SHBE=-6) 
25=2ND PRIMING TRANSMIT BUFFER NOT” RETURNED (CCP ONLY) 
24=LAST ALTERNATE BUFFER FAILED TO LOAD 


z 


3 


Neunbumveonnentns> 
Ree 
— 
— 
— 
S 


sinheneeats 


TEST 21: 
THIS TEST CHECKS THAT ALTERNATE BUFFERS CAN BE QUEUED TO EACH 
LINE AND ARE PROPERLY HANDLED BY THE FIRMWARE. A PROGRESSION IS 


EIVE ANSMIT BUFFERS 
AND A TEST THAT THE BUFFERS FOR THE CURRENT LINE ARE RETURNED CORRECTLY. 
reghy. REPORT: 
1S AILURE IN TEST ye ig art ROUTINES (SHBE=0) 
IL LOAD (SHBE= =0) 


ST. ATUS) 
7=RETURNED BUFFER ADDRESS NOT CORRECT (SHBE= CORRECT ADDRESS) 
10=THERE HAVE BEEN 4 BUFFERS OUT BUT NOT 2 RX + 2 TX (SHBE=# OF RX BUFFERS) 
11=AFTER 4 BUFFERS ANOTHER REQ.OUT IS POSTED (SHBE=# OF RX BUFFERS SO FAR) 


TEST 22: 
THIS TEST CHECKS THAT A NON-EXISTANT weer STATUS (-5) WILL BE 
RETURNED WITH A RECEIVE BUFFER OUT. THE NON-EXISTANT MEMORY 
ye hy 1/0 PAGE LOCATION 10 TO WHICH THE RECEIVE BUFFER IS 


ERROR REPORT: 








SEQ 0015 


Om 
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FAIL #°S 
1=FAILURE IN TEST oe ROUTINES (SHBE=0) 


TO LOAD 
4=NO OUTPUT RESPONSE FROM THE (NON-EXISTANT MEMORY) TRANSFER. (SHBE=204 (SEL2)) 
S=OUTPUT RESPONSE NOT FROM A RETURNED RECEIVE BUFFER (SHBE=204(SEL2)) 
6=RETURNED RECEIVE BUFFER STATUS NOT CORRECT (SHBE=-5 (NXM=STATUS)) 


TEST 23 


CCP MODE ONLY 

THIS TEST WILL CHECK THAT THE 2 CHARACTERS ETX AND ETB 

ARE DETECTED AND PROPERLY RETURN THE BUFFER OUT COMMAND STATUS. 
BOTH CHARACTERS ARE TESTED INDIVIDUALLY WITH EACH PREF IXED 

BY AN SOH THEN A STX 


ERROR REPORT: 
fale -_ BYTE = SOH OR STX HIGH BYTE = ETX OR ETB (FAILING COMBINATION) 


FA 
1=FAILURE IN TEST SET UP ROUTINES 
ILED TO LOAD 


TO LOAD 
4=NO_RESPONSE WAS RECEIVED a aa THE Neetn aaa CHARACTER 
S=RETURNED COMMAND IS NOT A RECEIVE BUFFER 
6=BUFFER RETURNED DOES NOT HAVE CORRECT ENDING MEMORY ADDRESS 
7=SEL6 RETURNED STATUS IS NOT CORRECT 


TEST 24 


CCP MODE ONLY 
a TEST CHECKS THAT AN LRC ERROR CONDITION CAN BE DETECTED 

RETURNS THE RECEIVE BUFFER WITH AN LRC fn GAL 
10. GENERATE THE LRC ERROR A SPECIALLY FORMATTED BUFFER IS OUTPUT WITH 
AN ADDITIONAL CHARACTER FOLLOWING THE ‘‘ETX’’ WHICH THE RECEIVER 
INTERPRETS AS THE LRC CHARACTER 


ee REPORTS: 
FAILAS 


1=FAILURE IN TEST INITIALIZE Pte 

2=RECEIVE a fhe FAILED TOL 

S=TRANSMIT BUFFER FAILED TOL COAD 

4=THERE IS NO OUTPUT RESPONSE FROM THE LRC ERROR CONDITION 
PUT NOT A COMMAND 


I BUFFER OUT 
6=RETURNED ENDING MEMORY ADDRESS NOT CORRECT 
=RETURNED STATUS DOES NOT INDICATE AN LRC ERROR 


SEQ 0016 
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TEST 25 


CCP MODE ONLY 
THIS TEST CHECKS THAT A PARITY ERROR CONDITION CAN BE DETECTED 
AND RETURNS THE mech ive BUFFER WITH A PARITY CONDIT 


TO GENERATE THE PARITY ERROR A SPECIALLY FORMATTED BUFFER IS OUTPUT 
WITH AN EVEN PARITY DATA CHARACTER FOLLOWING THE CONTROL CHARACTERS 


ERROR REPORTS: 
rt a aa FAIL# SHBE CSRO CSR2 CSR4 CSR6 


FA 
1=FAILURE IN TEST INITIALIZATION ROUTINES 
ve tk BUFFER FAILED " oon 
=TRANSMIT BUFFER FAILED TO LOAD 
4=THERE IS NO wr PUT “RESPONSE FROM _ PARITY ERROR CONDITION 


PUT I A BUFFER OUT C 
6=RETURNED ENDING MEMORY ADDRESS NOT CORRECT 
7=RETURNED STATUS DOES NOT INDICATE A PARITY ERROR 


26: 

THIS TEST CHECKS THAT THE CHARACTER COUNT WILL CORRECTLY COUNT 
TO THE HIGHEST VALUE OF CORE AVAILABLE (ABOVE THE DIAGNOSTIC) 
BY USING THE SAME BUFFER FOR RECEIVE AS IS TRANSMIT 

AND TESTING THAT THE ENDING MEMORY ADDRESS RETURNED 

OF BOTH THE BUFFERS (XMIT AND RECEIVE) ARE THE SAME 


ERROR REPORT: 

FAIL #°S 

i=FAILURE IN TEST INITIALIZATION ROUTINES 
ILED TO LOAD 


3=TRANSMIT BUFFER FAILED TO LOAD 
4=NO BUFFER RETURNED FROM ens 
5=COMMAND RETURNED WAS NOT A BUFFER OUT 
6=1ST BUFFER HAS INCORRECT ENDING MEMORY ADDRESS 
7=2ND BUFFER FAILED TO RET 
19s 2ND COMMAND WAS NOT A BUFFER OUT 
1=2ND BUFFER HAD INCORRECT ENDING MEMORY ADDRESS 


12=BUP FERS RETURNED WERE NOT 1 TRANSMIT & 1 RECEIVE (SHBE=# REC.BUFFERS) 


T 27: 
THIS TEST WILL CHECK THE LOWER 13 (4K) ay TRANSMIT AND RECEIVE 


BUFFER ADDRESSING (BUFFER 3 a D OUT) BY TRANSMITTING 
AND re iS | TWO WORD BUFFERS. THE ADDRESSES ARE SEQUENCED BY 
WALKING A ONE ACROSS THE RETURNED BUFFER ADDRESS VALUE. 

THE RETURNED BUFFER ADDRESSES ARE TESTED FOR BEING CORRECT. 


ERROR REPORT: 
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SEQ 0018 









IN TEST INITIALIZATION ROUTINES 
RECEIVE ge fh FAILED TO LOAD (SHBE + WAS =N/A) 
SMIT BUFFER FAILED TO LOAD (SHBE+WAS=N/A) 
PUT RE es AFTER a a he BUFFERS (SHBE ,WAS=N/A) 
URNED BUFFER IS NOT BUFFER OUT 
URNED BUFFER (ENDING MEMORY ADDRESS) NOT CORRECT (SHBE=CORRECT ADDRESS) 
FER NOT RETURNED 
O=2ND RETURNED COMMAND IS NOT BUFFER OUT 
2ND RETURNED BUFFER (ENDING MEMORY ADDRESS) NOT CORRECT (SHBE=CORRECT ADDRESS) 
TWO BUFFER OUT COMMANDS RETURNED BUT NOT ONE TX AND ONE RX (SHBE=#OF RX BUFFERS 
EXTRA RETURNED COMMAND AFTER TWO BUFFER OUTS 










T 30: 

THIS TEST WILL o or ADDRESSING OF THE HIGHER ORDER 

BITS (BITS 14-17) OF THE QUEUED as ine 7 A AND MULTIPLE DATA 
TRANSFERS BY TRANSFERRING A TEN WORD = FER TO EACH 4K BOUNDARY 
CIN THE TEST RANGE) OUTPUT IS FROM *'TBU 








* THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXISTS. 
Be rer: 

1=FAILURE IN TEST INITIALIZATION ROUTINES 
2=THE RECEIVE BUFFER-IN COMMAND FAILED TO LOAD (SHBE,WAS=0) 
3=THE TRANSMIT BUFFER-IN COMMAND FAILED TO LOAD (SHBE,WAS=0) 
4=CURRENT TRANSFER FAILED TO INDICATE A COMPLETION (SHBE,WAS=0) 
5=RETURNED COMMAND WAS NOT A BUFFER OUT 
6=RETURNED (TRANSMIT) ath EA-BITS INCORRECT (SHBE+WAS=EA-BIT STATUS) 
7=RETURNED (TRANSMIT) BUFFER 16 BIT ADDRESS INCORRECT (SHBE+WAS=ADDRESS) 
10=RETURNED (RECEIVE) BUFFER EA~BITS INCORRECT (SHBE+WAS=EA-BIT STATUS? 
11=RETURNED (RECEIVE) BUFFER 16 BIT ADDRESS agp on 31 (SHBE +WAS=ADDRESS) 
12=TWO RETURNED BUFFERS WERE NOT 1 TX AND 1 RX BUFFER 




















TEST 31: 
THIS TEST WILL CHECK Bey ADDRESSING OF THE HIGHER ORDER aire 
(BITS 14-17) OF THE QUEUED TRANSMIT BUFFER AND MULTIPLE DATA 
TRANSFERS BY TRANSFERRING A _TEN WORD BUFFER FROM EACH 4K BOUNDARY 
(IN THE TEST RANGE) INPUT IS TO RBUF. 


* THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXISTS. 
FAIL A'S. 
FAILURE IN_TEST INITIALIZATION ROUTINES 
ab RECEIVE BUFFER-IN COMMAND FAIL TO LOAD (SHBE ,WAS=0) 
=THE TRANSMIT BUFFER-IN COMMAND FAIL TO LOAD (SHBE,WAS=0) 
4=CURRENT TRANSFER FAILED TO INDICATE A COMPLETION (SHBE,WAS=0) 
5=RETURNED COMMAND IS NOT A BU OUT 
=RETURNED (TRANSMIT) BUFFER EA~BITS INCORRECT (SHBE+WAS=EA-BIT STATUS) 
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7=RETURNED (TRANSMIT) 16 
1O=RETURNED (RECEIVE) EA 
TI=RETURNED (RECEIVE) 16 
12=TWO RETURNED BUFFER NOT 1 TX AND 1 RX BUFF 


TEST 32: 


THIS TEST WILL CHECK MULTIPLE DATA TRANSFERS AND BUS ADDRESSING 

IN CCP MODE, THE FIR 0 Ss NW 

ag gyre PATTERN (40-175) AND TRANSFERRED TO EACH 4K ABOVE 
THE DIAGNOSTIC (20K UP) 

IN BOP THE FIRST 1024 BYTES OF THE FIRST 4K BOCK Ae IS 

WRITTEN WITH AN INCREMENTAL PATTERN (0-377) AND TRANSFERRED 

TO THE START OF EACH 4K ABOVE THE DIAGNOSTIC (20k UP) 


TEST WILL RUN ONLY IF 20K OR MORE OF CONTIGUOUS CORE (0 UP) 
EXISTS ON SYSTEM. 


nie il 
1=FAILURE IN TEST INITIALIZATION ROUTINES 
ical 1 earten chiLe TO LOAD 


=16-B1T TRANSMIT ADDRESS INCORRECT 

=EXTENDED TRANSMIT ADD ~ iy BITS INCORRECT 
=2ND BUFFER (RECEIVE) NOT RETURN 

=2ND_ RETURN WAS NOT EXPECTED RECEIVE BUFFER 
=RECEIVE BUFFER RETURNED STATUS INCORRECT 
6-BIT RECEIVE ADDRESS INCORRECT 


2ND BUFFER (TRANSMIT) NOT RETURNED 
2ND RETURN WAS NOT EXPECTED TRANSMIT BUFFER 
TWO RETURNED BUFFERS NOT 1TX AND 1 RX BUFFER 


TEST 33 


THIS TEST WILL CHECK THE INPUT REQUEST INTERRUPT LOGIC 
AND FIRMWARE ARBITRATION BY INITIALIZING THE INPUT REQUEST 
VECTOR (XX0) WITH A CORRECT RETURN. ADDRESS AND THE OUTPUT REQUEST 
VECTOR WITH ADDRESS TO ERROR FLAG ROUTINE. 
THE INPUT REQUEST 1S FIRST DONE WITH THE PROCESSOR STATUS 
DROPPED TO 0 AND THE INTERRUPT ENABLE BIT NOT SET TO CHECK 
NO UP RDYIN" <BIT P-SELO) SETS. 
THEN THE INPUT REQUEST 1S MADE WITH THE INTERRUPT ENABLE 
BIT SET AND THE PROCESSOR STATUS AT 0 TO CHECK THAT THE INTERRUPT 
OCCURS TO THE CORRECT VECTOR ADDRESS 
THEN THE PROCESSOR STATUS IS SET TO LEVEL 7 THE REQUEST MADE 
WITH THE INTERRUPT ENABLE BIT SET AND TEST THAT THE INTERRUPT DOES 


ait s tectnh INCORRECT (SHBE+WAS=ADDRESS) 
“BITS INCORRECT (SHBE+WAS=EA-BIT STATUS) 
BIT_ADDRESS age peg 3 (SHBE +WAS=ADDRESS) 


SEQ 0019 
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NOT OCCUR UNTIL THE CORRECT PROCESSOR STATUS IS REACHED. 
ee an 


1 to URE wat 

FIRMWARE INITIALIZE FAILED AFTER RDYIN SET (WAS=N/A) 
tar RDYIN FAILED TO SET (WAS=N/A) 

F 


IRMWARE FAILED TO INIT. Mice INPUT INTERRUPT (WAS=N/A) 
D RDY~IN FAILED TO SET 


TEST 34 


Frade TO INTERRUPT VECTOR XX4 AND TEST THE LOGIC AN 
FIRMWARE ARBITRATION. 

A _ TRANSMIT AND RECEIVE BUFFER IS wrx TO LINE 0 

WITH THE ee ta tata tik AT 0 AND THE ‘eek BIT NOT SET 


oc NO INTERRUPT 
THE FIRMWARE IS REINITIALIZED THE BUFFERS REQUEUED 
WITH THE ‘‘IEO’’ BIT SET AND THE PROCESSOR STATUS AT 0 
A CHECK IS DONE TO TEST THAT THE INTERRUPT OCCURS TO THE 
OUTPUT VECTOR ADDRESS XX4. 


gS ees 
1=FAILURE IN TEST INITIALIZATION ROUTINES (WAS=N/A) 
2=RECEIVE BUFFER FAILED TO LOAD 
3=TRANSMIT BUFFER FAILED TO LOAD 
4=BUFFER FAILED TO RETURN 

ILLEGAL _INTERRUPT WITHOUT IEO zr (WAS=VECTOR TRAPPED TO) 
2ND att BUFFER FAILED TO LOAD 
2ND T BUFFER FAILED a LOAD 
CINTERRUPT OCCURED TO WRONG VECTOR (WAS=VECTOR TRAPPED TO) 
=INTERRUPT FIALED WHEN ‘RDYOUT’’ SET (WAS=N/A) 


5= 
6 
7 
*N 
12=BUFFER FAILED TO RETURN (NO 'RDYOUT’') (WAS=N/A) 


OS IN 
1 
2 


@ 7) (WAS=VECTOR TRAPPED TO) 
ERRUPTED TO WRONG VECTOR ADDRESS (WAS=VECTOR TRAPPED TO) 


R WAS=N/A) 
INTERRUPT OCCURED AT rEVEL OTHER THAN SPECIFIED (WAS=PS WORD) 


THIS TEST WILL CHECK THAT AN OUTPUT REQUEST INTERRUPT ei CORRECTLY BE 


SEQ 0020 


C 
C 
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08:50 lace 21 


SEQ 0021 


C 
C 


CZKMEAO DMS11=DA DYNAM 
CZKMEA.P11 20-0(T-8 


"17:05 


J 
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SEQ 0022 


C 
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SEQ 0025 


a 


NN EE eee 


Ci 
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om 
NIM 


SEQ 0026 
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1068 

1069 

1070 

1071 

4 

107 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 16000 
1082 167400 
1083 00000 
1084 000001 
1085 00000 
1086 022626 
1087 022626 
1088 0057. 
1089 

1090 

1091 

1092 001100 
1093 

1094 

1095 

1096 

1097 000011 
1098 00001 
1099 000015 
1100 000200 
1101 177776 
1102 

1103 177774 
1104 177772 
1105 177570 
1106 177570 
1107 

1108 

1109 000 
1110 000001 
1111 sila 
1112 00000 
1113 000004 
1114 000005 
1115 

1116 000007 
1117 00 
1118 000007 
1119 

1120 

1121 

1122 000040 
1123 10 
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«LIST SEQ,BIN,LOC 


NABL_ ABS,AMA 

TITLE CZ2KMEAO DMS11=DA DYNAMIC 
>*COPYRIGHT (C) 1981 

; *DIGITAL EQUIPMENT CORP. 
;*MAYNARD, MASS. 01754 


; PROGRAM BY R.BALDWIN, R. J. COLLINS 


TeTHIS PROGRAM WAS ASSEMBLED ge THE PDP=11 MAINDEC SYSMAC 


; *PACKAGE (MAINDEC=11=DZQAC-C5), JAN, 1981. 
itn 
$SUR=160000_ 
$SWR=167400 
$TN=1 
$N=1 
$E=1 
POP2SP=22626 


POPPOP=22626 POP THE STACK TWICE 
=005726 POP THE STACK ONCE 


OPSP: 
-SBTTL BASIC DEFINITIONS 


STAC 
.EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
.EQUIV IOT,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
; sMISCELLANEOUS DEF INI TIONS 
HT= 11 7:CODE FOR HORIZONTAL TAB 
LF= 12 ::CODE FOR LINE FEED 
CR= 15 :: CODE FOR CARRIAGE RETURN 
CRLF= 200 7:CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ::PROCESSOR STATUS WORD 
.EQUIV PS_PSW 
STKLMT= 177776 33STACK LIMIT REGISTER 
PIRQ= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 T:HARDWARE SWITCH REGISTER 
DDISP= 177570 ::HARDWARE DISPLAY REGISTER 
> *GENERAL PURPOSE REGISTER DEFINITIONS 
0= x0 3:GENERAL REGISTER 
R1= 7: GENERAL REGISTER 
R2= * > :GENERAL REGISTER 
R3= 13 [GENERAL REGISTER 
R4= 14 7: GENERAL REGISTER 
R5= 15 +:GENERAL REGISTER 
R6= %6 GENERAL REGISTER 
R7= 27 ::GENERAL REGISTER 
SP= 26 ::STACK POINTER 
PC= 17 *:PROGRAM COUNTE 
:*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ::PRIORITY LEVEL 0 
PRI= 40 + PRIORITY LEVEL 1 
PR2= 100 + PRIORITY LEVEL 2 


HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 


a. he OF THE STACK POINTER *** 1100 ee* 


SEQ 0027 
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1124 690140 PR3= =: 140 s;PRIORITY LEVEL 3 
1125 000200 PR4= 00 : PRIORITY LEVEL 4 
1126 000240 PR5= 40 3 ITY LEVEL 5 
1127 000300 PR6= 00 ::PRIORITY LEVEL 6 
1128 000340 PR7= 40 PRIORITY LEVEL 7 
1130 -*'"SWITCH REGISTER’ SWITCH DEFINITIONS 
1131 100000 $w15= 100000 

1132 040000 Sw14= 40000 

1133 020000 Swi3= 20000 

1134 010000 Swi2= 10000 

1135 004000 SWi1= 4000 

1136 002000 Sw10= 2000 

1137 001000 sw0O9= 1000 

1138 000400 SwO8= 400 

1139 000200 sw07= 200 

1140 000100 Sw06= 100 

1141 000040 SwOS= 40 

1142 000020 Sw04= 20 

1143 000010 = 10 

1144 000004 Sw02= 4 

1145 000002 SwOl= 2 

1146 000001 = 1 

1147 EQUIV SW09,SW9 

1148 “EQUIV SWO8.SW8 

1149 EQUIV SWO7.SW7 

1150 EQUIV SW06.SW6 

1151 EQUIV SWOS.SW5 

1152 EQUIV SW04.SW4 

1153 EQUIV SwW03,SW3 

1154 [EQUIV SWO2.SW2 

1155 “EQUIV SWO1.SW1 

1136 “EQUIV SWO0.SWO 

1158 :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
1159 100000 BIT15= 100000 

1160 040000 BIT14= 40000 

1161 020000 BIT13= 20000 

1162 010000 BIT12= 10000 

1163 04000 BIT11= 4000 

1164 002000 BIT10= 2000 

1165 01000 BIT09= 1000 

1166 00 BITOB= 400 

1167 000200 BITO7= 200 

1168 100 BIT06= 100 

1169 0 BITOS= 40 

1170 000020 BIT04= 20 

1171 000010 BIT03= 10 

1172 00004 BITO2= 4 

1173 000002 BITO1= 2 

117% 0001 BITOO= 1 

1175 EQUIV BITO9,BIT9 

1176 EQUIV 61108 .8118 

1177 -EQUIV BIT07.BIT 

1178 “EQUIV BIT06,BIT6 

1179 “EQUIV BITOS.BITS 
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1180 .EQUIV BITO4,BIT4 

1181 .EQUIV BITO3,B1T3 

1182 -EQUIV BITO2,B1T2 

1183 -EQUIV B1T01,B81T1 

1184 “EQUIV BITOO.BITO 

1186 ;*BASIC “'CPU'’ TRAP VECTOR ADDRESSES 

1187 0 ERRVEC= 4 :TIME OUT AND OTHER ERRORS 
1188 000010 RESVEC= 10 :ZRESERVED AND ILLEGAL INSTRUCTIONS 
1189 000014 ITVEC=14 33°'T"" BIT 

1190 000014 TRIVEC= 14 TRACE TRAP 

1191 000014 TVEC= 14 : SBREAKPOINT TRAP (BPT) 
1192 000020 IOTVEC= 20 t: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
1193 000024 PWRVEC= 24 [POWER FAIL 

1194 000030 EMTVEC= 30 :3EMULATOR TRAP (EMT) **ERROR®* 
1195 000034 TRAPVEC=34 33 TRAP TRAP 

1196 000060 TKVEC= 60 KEYBOARD V 

1197 000064 TPVEC= 64 ny PRINTER VECT OR 

1198 000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
1199 “SBTTL MEMORY MANAGEMENT DEF 1"ITIONS 

1201 :*KT11 VECTOR ADDRESS 

i 208 000250 MMVEC= 250 

1209 z*KT11 STATUS REGISTER ADDRESSES 

1207 177572 SRO=  _—«-177572 

1208 177574 SRI= —s- 177574 

1209 177576 SR2= 177576 

1210 172516 SR3=  —-172516 

ete Z*KERNEL ''I'' PAGE DESCRIPTOR REGISTERS 

1214 172300 KIPDRO= 172300 

1215 172302 KIPDR1= 172302 

1216 1723 KIPDR2= 172304 

1217 172306 KIPDR3= 172306 

1218 172310 KIPDR4= 172310 

1219 172312 KIPDR5= 172312 

1220 172314 KIPDR6= 172314 

leet 172316 KIPDR7= 172316 

1228 Z*KERNEL "'I'' PAGE ADDRESS REGISTERS 

1225 172340 KIPARO= 172340 

1226 172342 KIPAR1= 17¢34¢ 

1227 172344 KIPARG= 172344 

1228 172346 KIPAR3= 172346 

1229 172350 KIPAR4= 172350 

1230 172352 KIPARS= 172352 

1231 172354 KIPAR6= 172354 

123¢ 172356 KIPAR7= 172356 

1234 .SBTTL TRAP CATCHER 

1235 


orm 
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1236 000000 =0 

1S3f : *ALL, UNUSED ot eh as OF THE VECTOR AREA CONTAIN 

12 *A *',+2, IOT ’ SEQUENCE TO ee AND PROCESS ILLEGAL 

1239 *TRAPS AND INTERRUPTS THAT MIGHT OCC 

1240 *THE IOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP/INT 

1241 :* TRAPS TO He SSCOPE ROUTINE WHICH (IF THE RETURN PC IS 
iste s*LESS THAN 1002) JUMPS TO THE SERROR ROUTINE. 

124 2*THE SERROR ROUTINE WILL REPORT THE — AS FOLLOWS: 

1244 7* PC=VYYYYY UNEXPECTED TRAP TO X 

1245 3*AND RETURN TO THE PROGRAM AT PCEYYYYYY#2 

1246 ; WHERE XXX=LOCATION OF ILLEGAL TRAP 

1247 YYYYYY=PC AT TIME OF TRAP 

1248 j4NOTE IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

ifr se CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 
1251 000000 000000 $40CAT: HALT 3 HALT 

1936 000002 000737 BR --100 at ry7t 5) TO 177700 & TIME OUT (NOT ON 
1254 000004 001542 WORD BEGIN VECTOR TO STARTING ADDRESS 
1255 000006 000340 WORD 340 :zWITH PRIORITY LEVEL 7 

1256 000174 =174 

1257 000174 000000 DISPREG:.WORD 0 i ;SOFTWARE DISPLAY REGISTER 
1258 000176 000000 SWREG: .WORD 0 2sSOFTWARE SWITCH REGISTER 
1259 ~SBTTL STARTING ADDRES(ES) 

1Se3 000200 $b L4 001542 Je 20 @ABEGIN ;;GO TO START OF PROGRAM 

1262 000220 000240 NOP ALLOW INSERTION OF KMC DEBUF DUMP 
1263 000222 000240 NOP 

1264 000224 000137 002076 JMP MONIT RETURN TO MONITOR 
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CZKMEA.P11 20-OCT-81 17:05 COMMON TAGS SEQ 0031 
ot -SBTTL COMMON TAGS 
1267 FERRARO REE RE RARER EER EREREREREREREREERERERERRRERAERE RES 
1268 SRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
4 7*USED IN THE PROGRAM. 
1271 001100 -=1100 
1272 001100 SCMTAG: :zSTART OF COMMON TAGS 
1273 001100 000000 SPASS: .WORD 0 3sCONTAINS PASS COUNT 
1274 001102 000 STSTNM: .BYTE 0 3sCONTAINS THE ww 4 NUMBER 
1275 001103 000 SERFLG: .BYTE 0 3sCONTAINS ERROR FLAG 
1276 001104 000000 SICNT: .WORD 0 33 CONTAINS SUBTEST. ITERATION COUNT 
1277 001106 000000 SLPADR: .WORD 0 :sCONTAINS SCOPE 3 fl ene 
1278 001110 000000 SLPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
1279 001112 000000 SERTTL: .WORD 0 3-CONTAINS TOTAL ERRORS DETECTED 
1280 001114 000 SITEMB: .BYTE 0 ;;CONTAINS ITEM CCNTROL BYTE 
1281 001115 001 RMAX: .BYTE 1 ZZCONTAINS MAX. ERRORS PER TEST 
1282 001116 000000 SERRPC: .WORD 0 :sCONTAINS PC OF LAST ERROR INSTRUCTION 
1283 001120 000000 GDADR: .WORD 0 2 CONTAINS ADDRESS OF ‘GOOD’ DATA 
1284 001122 000000 DADR: .WORD 0 ; CON pa ADDRESS OF ‘BAD* DATA 
1285 001124 000000 SGDDAT: .WORD 0 s3¢ TAINS ‘GOOD’ DA oe 
1286 oot i¢6 000000 SBDDAT: .WORD 0 3sCONTAINS ‘BAD’ DATA 
1287 0011 000000 -WORD 0 7:RESERVED=-NOT TO BE USED 
1288 001132 000000 WORD 0 
1289 001134 000 $AUTOB: .BYTE 0 3 sAUTOMATIC MODE INDICATOR 
1290 001135 000 SINTAG: .BYTE 0 :sINTERRUPT MODE INDICATOR 
1291 001136 000000 . 0 
1292 001140 177570 SWR: -WORD DSWR ADDRESS OF SWITCH REGISTER 
1293 001142 177570 DISPLAY: .WORD DDISP 7 ADDRESS OF Baad REGISTER 
1294 001144 TKS: 177560 ecTTy KBD STATUS 
1295 001146 177562 $TKB: 177562 TTY KBD BUFFER 
1296 001150 177564 $TPS: 177564 S:TTY PRINTER STATUS REG. ADDRESS 
1297 001152 177566 $TPB: 177566 zs TTY PRINTER BUFFER REG. ADDRESS 
1298 001154 000 $SNULL: .BYTE 0 :sCONTAINS NULL CHARACTER 
1299 001155 002 SFILLS: .BYTE 2 3;sCONTAINS # OF 4 ae ee a REQUIRED 
1300 001156 012 SFILLC: .BYTE 12 23 INSERT FILL CHARS. AFTER A ‘LINE F 
1301 001157 000 STPFLG: .BYTE 0 ;""TERMINAL AVAILABLE A FLAG (B1T<07>=0=YES) 
1302 001160 000000 $T D 0 TIUSER DEFINED 
1303 001162 000000 STMP1: .WORD 0 :sUSER DEFINED 
1304 001164 000000 STMP2: .WORD 0 2 sUSER DEF INED 
1305 001166 000000 STIMES: 0 MAX. NUMBER OF ITERATIONS 
1306 001170 000000 SESCAPE :0 7ZESCAPE ON ERROR ADDRESS 
1307 001172 177607 000377 $BELL: .ASCIZ > > slat CODE FOR BELL 
1308 001176 077 QUES: .ASCII 3 STION MARK 
1309 001177 015 SCRLF: .ASCII <i5> i: CARRIAGE RETURN 
1310 001200 000012 ae eASCIZ <12> LINE FEED 
1311 PTTITITILITLIITLILLLIL LLL LLL LLL EEL LLL LER ELL 
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1313 -SBTTL ERROR POINTER TABLE 
1314 :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
1315 :*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER F IN 
1316 s*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
1317 :*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (S$ERRPC). 
1218 :*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
1320 3 EM 3;POINTS TO THE ERROR MESSAGE 
1321 i* DH ::POINTS TO THE DATA HEADER 
1322 i* DT POINTS TO THE DATA 
13s? 3 DF POINTS TO THE DATA FORMAT 
1325 
1326 001202 SERRTB: 
it 44 ERROR MESSAGE TABLE 
1329 001202 033050 034446 035562 EM01,DH1,DT1,DF1 
1330 001210 036042 
1331 001212 033101 034507 035574 EMO2,DH2,DT2,DF1 
1332 001220 03604 
1333 001222 033137 034507 035574 EMO3,DH2,DT2,DF1 
1334 001230 036042 
1335 001232 033164 034553 035610 EM04 ,DH3,DT3,DF1 
1336 001240 036042 
1337 001242 033211 034612 035622 EMOS,DH4,DT4,DF1 
1338 001250 036042 
1339 001252 033240 034612 035622 EM06,DH4,DT4,DF1 
1340 001260 036042 
1341 001262 033270 034707 035644 EMO7,DHS,DT5,DF1 
1342 001270 036042 
1343 001272 033324 034707 035644 EM10,DH5,DT5,DF1 
1344 001300 036062 
1345 001302 033347 034707 435644 EM11,DH5,DT5,DF1 
1346 001310 036042 
1347 001312 033405 034707 035644 EM12,DH5,DT5,DF1 
1348 001320 036042 
1349 001322 033444 034612 035622 EM13,DH4,DT4,DF1 
1350 001330 Ose08¢ 
1351 001332 033503 034612 035622 EM14,DH4,DT4,DF1 
1352 001340 036042 
1353 001342 033542 034707 035644 EM15,DH5,DT5,DF1 
1354 001350 036042 
1355 001352 033602 034612 035622 EM16,DH4,DT4,DF1 
1356 001360 036042 
1357 001362 033641 034707 035644 EM17,DH5,DT5,DF1 
1358 001370 036042 
1359 001372 033702 034707 035644 EM20,DH5,DT5,DF1 
1360 001400 036042 
1361 001402 033742 034707 035644 EM21,DH5,DT5,DF1 
1362 001410 036042 
1363 001412 034001 034707 035644 EM22,DH5,DT5,DF1 
1364 001420 036042 
1365 Oot eGs 034021 035260 035750 EM23,DH11,D111,DF1 
1366 001430 036042 
1367 001432 034054 034707 035644 EM24,DH5,DT5,DF1 


On 
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RROR POINTER TABLE SEQ 0033 
1368 001440 036042 

1369 001442 034106 034707 035644 EM25,DH5,DT5,DF1 

1370 001450 0 O4e 

1371 001452 034143 034707 035644 EM26,DH5,DT5,DF1 

1372 001460 036042 

1373 001462 034170 035454 036016 EM27,DH13,DT13,DF1 

1374 001470 036042 

1375 001472 034222 035164 035726 EM30,DH10,DT10,DF1 

1376 001500 036042 

1377 001502 034275 035164 035726 EM31,DH10,DT10,DF1 

1378 001510 036042 

1379 001512 034350 035260 035750 EM32,DH11,DT11,DF1 

1380 001520 036042 

1381 0015¢2 034373 035365 035774 EM33.DH12,D712,DF 1 

1382 001530 036042 

1383 001532 034420 035365 035774 EM34,DH12,D112,DF1 

1384 001540 036042 

1385 

1386 

1387 001542 BEGIN: 

1388 .SBITL INITIALIZE THE COMMON TAGS 

1389 :;CLEAR THE COMMON TAGS ($CMTAG) AREA 

1390 001542 012706 001100 MOV SCMTAG,R6 z:FIRST LOCATION TO BE CLEARED 

1391 001546 005026 CLR (R6) + S:CLEAR MEMORY LOCATION 

1392 001550 022706 001140 CMP #SWR,R6 ;:DONE? 

1393 001554 001374 BNE 6 ::LOOP BACK IF NO 

1394 001556 012706 001100 MOV WSTACK,SP ::SETUP THE STACK POINTER 

1395 sINITIALIZE A FEW VECTORS 

1396 001562 012737 020550 000020 MOV #SSCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
1397 001570 012737 000340 000022 MOV #340, a#10TVEC+2 ;:LEVEL 7 

1398 001576 012737 021034 000030 MOV #SERROR,@#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
1399 001604 012737 000340 000032 MOV #340,aMEMTVEC+2 LEVEL 7 

1400 001612 012737 024256 000034 MOV #STRAP ,a#TRAPVEC :; TRAP VECTOR FOR TRAP CALLS 

1401 001620 012737 000340 000036 MOV #340, @#TRAPVEC+2;LEVEL 7 

1402 001626 013737 020462 020454 MOV SENDCT,SEOPCT :;SETUP END-OF-PROGRAM COUNTER 
1403 001634 005037 001166 CLR STIMES S: INITIALIZE NUMBER OF ITERATIONS 
1404 001640 005037 001170 CLR APE S:CLEAR THE ESCAPE ON ERROR ADDRESS 
1405 001644 112737 001115 #1, $ERMAX : ONE ERROR PER 

1406 001652 012737 001652 001106 MOV #. .SLPADR S: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
1407 001660 012737 001110 MOV #. .SLPERR =*SETUP THE ERROR L 

1408 ::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 

1409 S:EQUAL TO A ‘=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 

1410 001666 013746 MOV @¥ERRVEC.-(SP) ;;SAVE ERROR VECTOR 

1411 001672 012737 001726 000004 MOV #64$,aMERRVEC ::SET UP ERROR VECTOR 

ote 001700 012737 177570 001140 MOV #DSWR, SWR S:SETUP FOR A HARDWARE SWICH REGISTER 
1413 001706 012737 177570 001142 MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
1414 001714 022777 177777 177216 CMP #-1,aSWR S:TRY TO REFERENCE HARDWARE SwR 
1415 001722 001012 BNE 66$ ?:BRANCH IF NO TIMEOUT TRAP OCCURRED 
1416 3 THE HARDWARE SWR IS NOT = -1 
1417 001724 000403 BR 65$ BRANCH IF NO TIMEOUT 

1418 001726 012716 001734 64$: MOV #65$, (SP) ':SET UP FOR TRAP RETURN 

1419 001732 909002 RTI 

1420 001734 012737 000176 001140 65$: MOV ASWREG, SWR Z:POINT TO SOFTWARE SWR 

1421 001742 012737 000174 001142 MOV #DISPREG, DISPLAY 

142e 001750 012637 00000. 66$: MOV (SP)+,aWERRVEC ;;RESTORE ERROR VECTOR 
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™m 
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-SBTTL _TYPE PROGRAM NAME 


1425 ::TYPE THE NAME OF THE PROGRAM IF FIRST PASS 

1426 001754 005227 177777 INC #-1 sFIRST TIME? 

1427 001760 001046 BNE 67$ BRANCH IF NO 

1428 001762 022737 020514 000042 CMP WSENDAD,a#42 =: :ACT-11? 

1429 001770 001442 EQ 67$ BRANCH IF YES 

1430 001772 104401 002030 TYPE 68$ ::TYPE ASCIZ STRING 

1431 .SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 

143¢ 001776 005737 000042 TST an42 yARE WE RUNNING UNDER XXDP/ACT? 
143 002 001006 BNE 69$ 7 BRANCH IF 

1434 004 023727 001140 000176 CMP SWR,ASWREG S:SOFTWARE SWITCH REG SELECTED? 
1435 002012 001005 BNE 70$ BRANCH IF 

1436 002014 104406 GTSWR T:GET SOFT-SWR SETTINGS 
1437 002016 000403 BR 70$ 

1438 002020 112737 000001 001134 69$: MOVB #1,$AUTOB z:SET AUTO-MODE INDICATOR 
1439 002026 70S: 

1440 002026 000423 BR 67$ ::GET OVER THE ASCIZ 

1441 3:68$: .ASCIZ <CRLF>#CZKMEAO DMS11-BA DYNAMIC DIAGNOSTICA<CRLF> 
1442 002076 67$: 

1443 002076 012706 001100 MONIT: MOV #STACK,SP 

1444 002102 012737 000340 177776 MOV #340,PSW 

1445 002110 012737 000006 000004 MOV #64 :SET 4 FOR TIMEOUT 

1446 002116 012737 000004 000006 MOV 44.6 

1447 002124 005737 002256 TST 4$ 

1448 002130 001004 BNE 1$ 

1449 002132 004737 027452 JSR PC, GETCOR 

1450 002136 005137 002256 COM 4$ 

1451 002142 004737 021660 1$: JSR PC, a#STKINT sENABLE TTY INTS. 
1452 002146 104401 002154 TYPE 65$ zi TYPE ASCIZ STRING 

1453 002152 000421 BR 4$ S:GET OVER THE ASCIZ 

1454 7:65$: .ASCIZ <15><12>/(1)DIAG.TEST(2) CONFIGURATION / 
1455 002216 64S: 

1456 002216 104412 RDOCT 

1457 002220 012600 MOV (SP)+,RO 

1458 002222 022700 000001 CMP #1,R0 :LOGIC TEST? 

1459 002226 001451 BEQ LOOP 

1460 002230 022700 000002 CMP #2,R0 :CONFIG. MODE? 

1461 002234 001 BNE $ 

1462 002236 004737 024424 JSR PC .MODTAB :MODIFY THE CONFIGURATION ROUTINE 
1463 002242 000715 BR MONIT 

1464 002244 3$: 

1465 002244 104401 002252 TYPE ,67$ r:TYPE ASCIZ STRING 

1466 002250 000401 BR 66$ S:GET OVER THE ASCIZ 
1467 2:67$: .ASCIZ ?? 

1468 002254 66$: 

1469 002254 000710 BR MONIT 

1470 002256 000000 4$: 0 :SWITCH 

147, 

1478 7KMC11 DEVICE REGISTERS AND INTERRUPT BEGINOL 
1475 000001 SELO: 1 

1476 002262 000001 SEL1: 1 

1477 000001 SEL2: 1 

1478 002266 000001 SEL3: 1 

1479 002270 000001 SEL4: 1 


One 
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VALUE FOR SOFTWARE SWITCH REGISTER 


eB ands a 


Soooocoo 






:200=80P, O0=CCP 


3CRC32 ENABLED (0=NO 200=YES) 

;MOD E OF DATA LOOP (I/E) (200=INT. O=EXT.) 
HOLD CHARACTER OF RDCHR FOR ECHO 
;CURRENT LINE UNIT REGISTER UNDER TEST 
;CURRENT DA 


TA 
;UPPER BYTE TO CONTAIN CONTROL BIT 
:CONTROL BIT 


HIGH ADDRESS 
EXTENDED ADDRESS BITS 


By 4 
PC,LPA DISPLAY UNITS NEEDING LOOP CONNECTORS 
PKACTAB™12,C 
PC, GETKMC AOGET NEXT ENABLED KMC11 
SETUP ;BR=NO KMCS ENABLED 
STSTNM 
TSTNUM 
MODMSK SET MODE MASK 
MODE ;CHECK FOR MODE 

1$ :SKIP_IF BOP MODE 
bib ya's B MODMSK ;SET CCP MODE MASK 
PC, ,@#$STKINT ENABLE TTY INPUT 
PS ENABLE INTS. 
STTEST 
PC, SETTAB 3SETUP CONFIGURATION TABLE 
LOOP 

21 wercare FAILURE NUMB 


NE # UNDER T TEST 
NE UNIT # UNDER TEST 


S 
; CURRENT LI 
; CURRENT LI 


CQnm 
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1536 oose 000000 TSTNUM: 0 ;CURRENT TEST # 

1537 002462 000000 SHBE: 0Q 

1538 002464 000000 WAS 0 

1539 002466 000000 XOUT 0 

1540 002470 000000 ROUT: 0 

1541 002472 000000 XRET 0 ;RETURN TRANSMIT BUFFER ADDR. 

1308 002474 000000 RRET 0 sRETURN RECEIVE BUFFER ADDR. 

1543 002476 000000 CUREA: 0 

1544 002500 000000 CURBUF: 0 

1545 002502 000000 MAPADR: 0 

iF 54 | 002504 000000 RECEA: 0 sREC. BUFFER EA 

1547 002506 000000 RECBUF: 0 ;REC. BUFFER ADR 

1548 002510 000000 0 ;ADDR BUF. SHOULD RETURN 

1549 002512 0 RETADR: 0 ;ADDR BUF. SHOULD RETURN 

1550 002514 000000 RETBUF: 0 

1551 002516 000000 CHAR: 0 

133¢ 002520 177770 NXMADR: -10 ;NON-EXISTANT MEMORY ADDR 

1554 002522 000000 BUFADR: 0 316 BIT ADDRESS OF BUFFER 

1555 002524 000000 BUFEA: 0Q 3EA BITS OF BUFFER (BITS 17416 IN 15414) 
1556 002526 000000 BUFCNT: 0 ; CHARACTER COUNT OF BUFFER 

1320 002530 000000 RBUFSZ: 0 sFLAG FOR CONTROL OF REC. BUFFER 

1559 002532 100000 BADDR: 100000 ;BASE ADDRESS OF BUFFER 

1560 002534 000000 CCTST: 90 ;CHAR. CNT UP TO 8K BYTES OVER DIAG 

1561 002536 004737 030616 STTEST: JSR PC, INTPRM ;PRIME INTTERRUPT VECTORS 

1562 002542 004737 030020 JSR PC,.LDMODE ;LOAD FIRMWARE ACCORDING TO CONFIG. 
1563 002546 005037 177776 CLR PSW 

1564 SL URRAAA ARERR RARER ERERRERERARRAERRERARRAERERRERERERRERR REEL 
1565 s INTTST 

1566 ;THIS TEST WILL CHECK FOR THE PRESENCE OF THE 

1567 ;CURRENTLY ENABLED KMC-11 BY INITIALIZING THE 

1568 sFIRMWARE AND TESTING THAT THE FIRMWARE RESPONDS 

1569 37BY CLEARING BSEL2 

1570 FERRARA RARER EREEEEEERERERREREEERERERRERERAEEEREEEEEREREE 
1571 3; TES 

1572 SL RRAAAREERAARARARER ERE RERERAERERERERERERARRAEREROREREREREEEE 
1573 002552 000004 TST1: SCOPE i 

1574 002554 012737 000001 002460 MOV #1, TSTNUM ;LOAD THE WD OF THIS TEST 

1575 002562 004737 030244 JSR PC,SETLIN sSETUP THE FIRST LINE 

1576 25 012737 002574 001110 MOV #1$,$LPERR ;LOAD LOOP ADDRESS (LOOP ON ERROR) 
1577 002574 012737 1 002452 1$: MOV #1,ERNUM 

1578 002602 005037 002462 CLR E 

1579 2 B13738 004 MOV a#4 ,-(SP) 

1580 002612 012737 002712 000004 MOV #33 084 3; TEST FOR PRESENCE OF KMC-11 #=1 
1581 0127 00001 MOV #15,R0 ;WATCH-DO0G 

138 002624 112777 000377 177432 MOVB #377,aSEL2 

1583 002632 005077 177422 CLR aseLd 7*:CLEAR RUN, IF UP 

1584 002636 012777 040000 177414 MOV #40000 ,aSELO sMASTER CLR. 

1585 002 012777 100000 177406 MOV #100000,aSELO : 

1586 002652 012637 000004 MOV (SP)+,a84 sRESET LOC 4 + SP 

1587 002656 005037 001160 CLR TMP 

1588 002662 105237 001160 2$: INCB STMPO ;WAIT LOOP 

1589 002 001375 BNE rs) 

1590 002670 105777 177370 TSTB aSEL2 

1591 002674 001413 BEQ 4$ sFIRMWARE INITIALIZED 


on 
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1592 002676 005300 DEC RO 
1593 002700 001370 BNE 2$ Y AGAIN 
1 002702 012737 000002 002452 MOV #2,ERNUM <TMOARe FAILED TO INITIALIZE #=2 
1595 002710 000403 P 
9% 00271 3S: "CURRENT KMC=11 DEVICE ADDRESS FAILED TO RESPOND 
1597 00271 022626 POPPOP sFIX THE STACK 
1598 002714 012637 000004 MOV (SP)+, aa 
1599 002720 31S: 
1600 002720 104001 ERROR+ 1 
1601 002722 000724 BR 1$ ;LOOP a1$ 
1602 002724 4$: 
1603 38 RERKEKEEEKEKEEAAAARAREEEAEEEAEERAARRARAAEAEAARAAKAEAEKEEKREREREEEREERE 
1604 s INRDY 
1605 THIS TEST CHECKS THAT THE READY * BIT (BIT7-SELO) IS 
1606 * INITIALIZED AND CONTROLLED BY THE FIRMWARE. THE READY IN 
1607 :BIT 1S TESTED FOR BEING INITIALLY CLEARED THEN 
1608 ;THE REQUEST IN BIT (BITS5=-SELO) IS SET AND READ 
1609 31S TESTED FOR BEING SET BY THE FIRMWARE, THEN REQUEST IN 
1610 ;1S CLEARED AND READY-IN TESTED FOR BEING CLEARED BY THE FIRMWARE. 
1612 TITITITITITITITITITTTTT LITT TiTITi LiL t TLL LLL LEE EEE LiL 
1613 s TEST 
1614 M4 2  eeRERRERRKRERERRRREEREEREERERERERERERKREREEREER ERE EERE EERE 
1615 002724 000004 TST2: SCOPE 
1616 002726 012737 000002 002460 MOV #2, TSTNUM ;LOAD THE WD OF THIS TEST 
1617 2734 004737 030244 JSR PC,SETLIN sSETUP THE FIRST LINE 
1618 002740 012737 002746 001110 MOV #1$,$LPERR ;LOAD LOOP ADDRESS (LOOP ON ERROR) 
1619 002746 012737 000001 002452 1S: MOV #1, ERNUM 
1620 002754 005037 002462 CLR SHBE 
1621 002760 004737 030664 JSR PC, INTKMC s INITIALIZE KMC-11 FIRMWARE 
1622 2764 000442 BR 3$ sERROR RET.KMC FAILED TO INITIALIZE FAIL&=1 
1623 002766 005237 002452 INC ERNUM h2 
1624 002772 105777 177262 TSTB  aSELO SRDY-IN SET? 
1625 002776 100424 BMI 2s ;B=Y REPORT ERROR RDY-IN SET #=2 
1626 003000 112777 000040 177252 MOVB  4#40,aSELO :SET REQUEST 
1627 005237 002452 INC ERNUM sFAIL en IN NOT SET 
1628 003012 004737 had JSR PC,SYNTIM ‘UAIT WHILE 
1629 003016 105777 177236 TSTB = a@SELO DID RDYAIN SET? 
1630 003022 100025 BPL 4$ 7B=N REPORT ERROR RDYIN FAILED TO SET #=3 
1631 003024 142777 0 177226 BICB #40,aSELO i CLEAR REQUEST 
1632 003032 005237 002452 INC R TREADY IN FAIL TO CLEAR #=4 
1633 003036 004737 031714 JSR PC, SYNTIM WAIT A WHILE 
1634 003042 105777 177212 TSTB = @SELO ‘DID RDY-IN CLEAR 
1635 003046 100089 BPL TST + :RDY-IN UNDER CONTROL OF FIRMWARE 
1636 003050 117737 177204 002464 2S: MOVB  aSELO, WAS 
1637 003056 013737 002464 002462 MOV WAS. SHBE 
1638 003064 042737 000200 002462 BIC #200, SHBE 
1639 003072 3$: 
1640 003072 104002 ERROR+ 2 
1641 003074 900724 BR 1$ 
1642 003076 117737 177156 002464 4$: MOVB asELO. WAS 
1643 003104 013737 002464 002462 MOV WAS. SHBE 
1644 003112 052737 000200 002462 BIS #200, SHBE 
1645 003120 000764 BR 
1647 SC FARRAR AAEEREEERAEEREEEEEEEAEEAEEEEEEAERAEREEEAARERAEEEEEAEAEEREREERERE 


om 
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CZKMEA.P11 20-OCT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER 
1648 ;NOOUT 
1649 THIS TEST CHECKS THAT ys p=! FIRMWARE IS NO 
1650 ;REQU ‘wit NG AN OUTPUT OF ANY TYPE, BY EXAMINING BYTE 
1651 72 OF THE KMC-11 CSR'S 
165¢ TRE PT OREO RIOR 
165 TEST 
1eer Fhat-talalalabobsh-tutatalalaiabalalahdalatatababebalehahalaiaiababeieishiahaiaiebabeleieiehiaiaisiebeiaiehiahainisieie 
1655 003122 000004 SCOPE 
1656 003124 012737 000003 002460 MOV #3, TSTNUM LOAD THE WD OF THIS TEST 
1657 003132 004737 030244 JSR PC,SETLIN SETUP THE FIRST LINE 
1658 003136 0127357 003144 001110 MOV #1$,SLPERR LOAD LOOP ADDRESS (LOOP ON ERROR) 
1659 003144 012737 000001 002452 1$: MOV #1,ERNUM 
1660 003152 005037 002462 CLR SHBE 
1661 003156 004737 030664 JSR PC, INTKMC sINgTIAL ee KMC-11 FIRMWARE 
1662 003162 000412 BR 3$ 3sB=FIRMWARE FAILED TO INITIALIZE #=1 
1663 164 005237 002452 INC ERNUM :FAIL #2=F IRMWARE REQ. AN OUTPUT 
1664 003170 132777 000200 177066 81T8 #200,aSEL2 wr. REQUEST POSTED? 
1665 003176 001001 BNE 2s sB=VYES FIRMWARE REQUEST AN OUTPUT #=2 
1666 3200 000405 BR TST4 23 ON 
1667 003202 117737 177056 002464 2$: MOVB @SEL2,WAS 
1668 003210 3$: FIRMWARE FAILED TO INITIALIZE 
1669 003210 104003 ERROR+ 3 
tor 003212 000754 BR 


ea ad ST ee Ee ee 


LININT 
us TEST WILL DO A LINE INITIALIZE TO ALL LINES (SUCCESSFULLY) 
ZAND TEST THAT THE READY-IN BIT SETS AFTER EACH INITIALIZE 


PARARAAAAX 
DAARRO 

“Ni SNA 
BNRARANIS 


FF ARERR AEAEERAEEREEREREEEEEREREEEREREREREERERREREEEARERREEEREEEREE 


1679 
1680 TEST 
1681 PPITITITITITITITITITITIT ITLL TTL LLL LLL eee LLL 
1682 003214 000004 1S14: SCOPE 
1683 003216 012737 000004 002460 MOV #4, TSTNUM ZLOAD THE WD OF THIS TEST 
1684 003224 004737 030244 JSR PC. SETLIN ; SETUP THE FIRST LINE 
1685 003230 012737 003236 001110 MOV #1$,$LPERR LOAD LOOP ADDRESS (LOOP ON ERROR) 
1686 003236 012737 1 002452 1$: MOV #1, ERNUM SINIT FAIL #°S 
1687 003244 005037 002462 CLR SHBE 
1688 003250 004737 030664 JSR PC, INTKMC Z INITIALIZE KMC-11 FIRMWARE 
1689 003254 000433 BR “REPORT ERROR - FIRMWARE HUNG #=1 
1690 003256 2s: sTEST THAT A “'REQUEST-IN" CAN BE D 
1691 003256 012737 000002 002452 MOV #2, ERNUM ZFAIL #2=CAN NOT ISSUE AN INPUT C 
1692 003264 004737 031020 ‘JSR PC.REQNI 3CAN A INITIALIZE IN BE EXECUTED? 
1693 003270 000425 BR 43° REPORT ERROR RDY-IN FAILED OR OUTPUT REQUEST 
1694 “LOAD THE LINE=INIT COMMAND 
1695 003272 113777 002454 176766 MOVB CURLIN. @SEL3 ZLOAD LINE # 
1696 003300 012777 000400 176766 MOV #400, aSEL6 ZENABLE LINE 
1697 003306 005077 176756 CLR @SEL USED 
1698 CLEAR THE REQUEST-IN BIT TO NOTIFY FIRMWARE THAT COMMAND IS READY 
1699 003312 042777 000040 176740 BIC #40,aSELO :CLEAR REQUEST IN 
1700 sNOW TEST THAT THE FIRMWARE CLEARS READY~IN 
01 005237 002452 INC ERNUM zFIRMWARE FAILED TO COMPLETE LINE INIT COMMAND #=3 


1701 003320 
1702 003324 005037 001160 CLR STMPO 
1703 003330 105777 


176724 3$: TSTB aSELO zRDY-IN CLEAR? 





on 


ee eS 


———— - --- -— -- - -— 
} 
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1704 003334 100005 BPL 5$ 7B=Y 

1708 0033 003237 001160 INC $TMPO 
1706 003342 001372 BNE 3$ 

1707 003344 4$: 

1708 003344 104004 ERROR+ 4 

1709 003346 000733 BR 1$ :LOOP @ 1$ 

1711 003350 5$: 

1712 003350 004737 031650 JSR PC GETLIN :GET THE NEXT LINE NUMBER 

1713 003354 000401 BR TST DONE ALL LINES 

W714 003356 000737 BR 2$ *TRY NEXT LINE 

Wig tala MO a ac a a A ie al pea ae ac ine 

1718 : IOBUF IN 

1719 :THIS TEST WILL ISSUE A "TRANSMIT BUFFER’ IN TO EACH LINE 

1720 ‘AND TEST THAT EACH COMMAND ACCEPTS. 

1721 ; BLANK=XMIT BUFFERS IN 

1722 NON-BLANK=REC BUFFERS IN 

1723 PITITITITITE LLL LILI LLL LLL iti iii titi iii iii 

1724 

1725 EST 5 

1726 Pee ee Teer TT eer TTT TT eee TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT TT TTT 

1727 003360 000004 $15: SCOPE 

1728 003362 012737 000005 002460 MOV #5, TSTNUM :LOAD THE WD OF THIS TEST 

1729 003370 004737 030244 JSR PC.SETLIN : SETUP THE FIRST LINE 

1730 003374 012737 003402 001110 MOV #1$,$LPERR LOAD LOOP ADDRESS (LOOP ON ERROR) 

1731 003402 012737 000001 002452 1S: MOV #1, ERNUM 

1732 003410 005037 002462 CLR SHBE 

1733 003414 004737 030664 JSR PC, INTKMC s INITIALIZE KMC-11 FIRMWARE 

173% 003420 000430 BR 4$ [FIRMWARE FAILED TO INITIALIZE #=1 

1736 003422 012737 000002 002452 2s: MOV #2, ERNUM 

1737 003430 004737 030760 JSR PC .REQNT :CAN A TRANSMIT BUFF. IN BE EXECUTED? 

1738 003434 000422 BR 4 *CANNOT ISSUE A REQ.IN #=2 

1739 i LOAD THE BUFFER IN TO EACH TNE 

1740 003436 005237 002452 E 

1741 003442 012737 010002 002526 mov #10002,BUFCNT ;GET LENGTH OF BUFFER 

1742 003450 013777 002526 176616 MOV BUFCNT. @SEL6 :L 

1743 003456 012777 052260 176604 MOV #TBUF ,ASELS TADDRESS OF BUFFER 

1744 003464 113777 002454 176574 MOVB CURLIN, @SEL *L 

1745 TEST THAT FIRMWARE ACCEPTS C 

1746 003472 004737 031772 PC, INPDUN TEST THAT INPUT COMPLETED 

1747 003476 000401 aa 4$ ‘COMMAND FAIL TO COMPLETE #=3 

1748 003500 000404 BR 5$ 70K GO ON 

1749 003502 4$: 

1750 003502 004737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 

1751 003506 104005 ERROR+ 5 

173¢ 003510 000744 BR 2$ 

1754 003512 5$: 

1755 003512 004737 031650 JSR PC,GETLIN :GET THE NEXT LINE NUMBER 

1756 003516 000401 BR TST6 *:ALL BUFFERS TESTED 

1737 003520 000740 2s 

1759 J FARRAR RARER AEAEREEEREEEEAAERERAEEERAEEEEREREEAERERAEEEAEERERARRES 
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VALUE FOR SOFTWARE SWITCH REGISTER 


3 1OBUF IN 
sTHIS TEST WILL + Se A "RECEIVE BUFFER IN’’ TO EACH LINE 
AND TEST THAT EACH COMMAND ACCEPTS. 


js eenenebenaeneneneneqeseeqcanqeqnaneqnenenqnnnsqnesoeneseqqnenes 


;TEST 6 
e 
S RARE AAREEEREAERARREERERAEAERERRAERAAEREERARERAREAAEREEEEREEREREREE 


1$: 


2$: 


T6: SCOPE 


LOAD 


vB 
:TEST 
JSR 


4$: 


JSR 
ERROR 
BR 


5$: 


JSR 
BR 
BR 


— wanret 


#6, TSTNUM sLOAD THE WD OF THIS TEST 

PC,SETLIN 7SETUP THE FIRST LIN 

#i$, $LPERR ;LOAD LOOP ADDRESS (LOOP ON ERROR) 

a RNUM 

PC, INTKMC ig Men Ee | KMC-11 FIRMWARE 

4$ sFIRMWARE FAILED TO INITIALIZE #=1 

#2, ERNUM 

PC ,REQNR 3CAN A_REC. wf ee i oe 
ISSUE A REQ.1 


; CANNOT 

THE BUFFER IN TO EACH LINE 

#10002,BUFCNT ;GET LENGTH OF BUFFER 
ENGTH 


BUFCNT, @SEL6 :LOAD L 

#RBUF ,@SEL4 RECEIVE BUFFER 

CURLIN,@SEL3  ;LOAD LINE # 
THAT FIRMWARE ACCEPTS COMMAND 

PC, INPDUN :TEST THAT INPUT COMPLETED 
:COMMAND FAIL TO COMPLETE #=3 


5$ 70K GO ON 

; BC .GETCSR :GET CONTENTS OF THE CSRS 
2$ 
PC,GETLIN 3GET THE NEXT LINE NUMBER 
TST? :;ALL BUFFERS TESTED 


2s 


RREEAERKEEEEEREEAEARAEAARERAREREREREREREREREREREEEEEE 


THIS. Sd CHECKS THAT EACH LINE CAN ACCEPT AND FIELD A 
; TRANSMIT AND RECEIVE BUFFER. EACH LINE IS INITIALIZED, 
:THE MAINT. LOOP AND CLOCK ENABLED AND 
sAND_ONE TRANSFMIT BUFFER ARE THEN QUEUED TO THE LINE UNDER 
sTEST. *A SERIES OF TESTS ARE PERFORMED TO C : 
31) THE FIRST RECEIVE ith 3s a Wi A WITH AN EMA (1) 
sSTATUS AND THE CORRECT ENDING MEMORY ADDRESS 
32) THE TRANSMIT BUFFER IS RETURNED WITH A 1 STATUS AND THE 
sCORRECT MEMORY ADDRESS. 

;THE FAIL #°S RANGE FROM 1 TO 22 (OCTAL) 


pitteeeeeenee 


3TEST 


RARAARAAAEEEEEEAERAAAEAEREREERAEREEERAERAEREEEEAREEREEEEEE 
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SEQ 0040 


C 4 
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1816 RRAAERAARAARAKRARAAEAAEEEAERAKEERKERARRARARERAARKRAREEAREREEERERREE 

1817 00 +817: SCOPE 

1818 00 012737 000007 002460 MOV #7, TSTNUM :LOAD THE WD OF THIS TEST 

1819 003674 004737 030244 JSR PC. SETLIN SSETUP THE FIRST LI 

1820 003700 012737 003706 001110 MOV #18, $LPERR ‘LOAD LOOP ADDRESS (LOOP ON ERROR) 

1821 003706 O1¢7 ? 001 002452 1$: MOV #1,ERNUM : INITIALIZE ERROR 

182¢ 003714 013700 002454 MOV CURLIN, RO 

1823 003720 005037 002462 CLR SHBE 

1824 003724 004737 030664 JSR PC, INTKMC s INITIALIZE KMC=11 FIRMWARE 

1825 003730 000415 BR 15$ SFIRMWARE FAILED TO INITIALIZE #=1 

1826 003732 005237 002452 INC ERNUM 

1827 003736 004737 031204 JSR PC, INTLNE sINITIALIZE LINE (# IN CURLIN) 

1828 003742 900406 BR 15$ [CURRENT LINE FAILED TO INITIALIZE #=2 

1829 003744 005237 002452 INC ERNUM 

1830 003750 004737 031274 JSR PC, STCLK :SET MAINT LOOP + START CLOCK 

1831 003754 000401 BR 15$ SB=CLOCK NOT STARTED #=3 

1832 003756 900402 BR 16$ :0K 

1833 003760 000137 004510 15$:  JMP 6$ *G0 TO ERR 

1834 sLOAD RECEIVE BUFFER IN COMMANDS 

1835 003764 012737 052660 002522 16$: MOV WRBUF ,BUFADR  ;LOAD THE BUFFER ADDRESS 

1836 003772 005037 002524 CLR BUFEA : T 

1837 003776 012737 000002 002526 MOV #2,BUF CNT :SET 1ST BUFFER SHORT 

1838 004004 005237 002452 INC ERNUM 

1839 004010 004737 031344 JSR PC RIN ZLOAD A RECEIVE BUFFER IN 

1840 004014 000761 BR 15$ S1ST RECEIVE BUFFER FAILED TO LOAD #=4 

1841 004016 005237 002452 INC ERNUM 

1842 004022 012737 000020 002526 MOV #20, BUF CNT :SET 2ND BUFFER L 

1843 004030 004737 031344 JSR PC RIN ‘LOAD A RECEIVE BUF PER IN 

1844 004034 000751 BR 15$ [OND RECEIVE BUFFER FAILED TO LOAD #=5 

1845 sLOAD TRANSMIT BUFFER IN COMMAND 

1846 004036 012737 033022 002522 MOV #T7BUF ,BUFADR  ;LOAD THE TRANSMIT BUFFER ADDRESS 

1847 004044 012737 000004 002526 MOV #4 ,BUF CNT [SET TX BUFFER LENGTH TO MEDIUM 

1848 004052 005237 002452 INC ERNUM 

1849 004056 004737 031354 JSR PC,XIN ;LOAD A TRANSMIT BUFFER IN 

1850 004 000736 BR 15$ ‘TRANSMIT BUFF FAIL TO LOAD #=6 

1851 004064 005237 002452 INC ERNUM 

1852 004070 012737 000204 002462 MOV #204, SHBE GET RECEIVE BUFFER OUT COMMAND 

1853 004076 005037 001160 CLR $TMPO :SET UP WAIT LOOP 

1854 004102 105777 176156 2$: TSTB = @SEL2 : OUTPUT REQUESTED? 

1855 004106 100405 BMI 3$ :B=Y OK 

1856 004110 005237 001160 INC $TMPO 

1857 004114 001372 BNE 2$ :GO WAIT SOME MORE 

1858 004116 000137 004510 JMP ra 3 TREQ.OUT FAILED TO SET REPORT ERROR #=7 

1859 004122 005237 002452 3$: INC ERNUM 

1860 sTEST THAT COMMAND IS RECEIVE E BUFFER OUT 

1861 004126 123777 002462 176130 CMPB = SHBE, @SEL2 CHEC 

186¢ 004134 001165 BNE 6% [B=NO REPORT 1S™ COMMAND BUFFER TYPE INCORRECT #=10 

1863 004136 005237 002452 INC ERNUM 

1864 :TEST THAT CORRECT STATUS 1s RETURNED 

1865 004142 012737 000001 002462 Mov #1, SHBE T STATUS To END COUNT REACHED 

1866 004150 123777 002462 176116 CMPB = SHBE,, aSEL6 [CORRECT STATUS? 

1867 004156 001154 BNE 6$ :B=NO 1ST STATUS INCORRECT #=11 

1868 004160 005237 002452 INC ERNUM 

1869 - TEST THAT T RETURNED LINE # IS THE CURRENT LINE 

1870 004164 013737 002454 002462 Mov URLIN. SH 

1871 004172 127737 176070 002454 CMPB oeet cORCIN ZSAME LINE #? 
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187 004200 00114 BNE 6$ =NO 1ST LINE NUMBER INCORRECT #=12 
1873 004202 005237 002452 INC ERNUM 
1874 :TEST THAT ENDING MEMORY ADDRESS OF RETURNED BUFFER IS CORRECT 
1875 004206 017737 176062 00246 MOV :GET EXTENDED AD 
1876 004214 042737 140000 00246 BIC #140000, SHBE S EXTENDED BITS SHOULD BE CLEAR 
1877 004¢¢8 132777 000300 176046 BITB #300,aSEL7 SHOULD BE EA= BITS 
1878 0042 oor Ie BNE 6S ZREPORT EXTENDED ADDRESS NOT CORRECT #=13 
1879 004232 005237 002452 INC ERNUM 
1880 004236 105737 002311 TSTB MODE :TEST MODE FOR PROPER 16-BIT ADDRESS 
1881 004242 100404 BMI 0$ 
1882 004244 012737 052662 002462 MOV WRBUF+2,SHBE § :CCP MODE 
1883 004252 909405 BR 
1884 004254 O1e73 052664 002462 30$: MOV WRBUF+4,SHBE § ;BOP MODE 
1885 004262 023777 002462 176000 31$: CMP SHBE , @SEL4 SCORRECT 16 BIT ADDRESS? 
1886 004270 001107 BNE 6$ SB=N REPORT 1ST 16-BIT ADDRESS NOT CORRECT #=14 
1887 004272 005237 002452 INC ERNUM 
1888 sNOW CLEAR READY OUT AND TEST THAT ANOTHER BUFFER OUT COMMAND 
1889 *1S PRESENT WITHIN PRESCRIBED TIME PERIOD. 
1890 004276 105077 175762 CLRB aSEL :CLEAR READY OUT 
1891 004 302 012737 000200 002462 _ MOV #200, SHBE [GET TRANSMIT BUFFER OUT COMMAND 
1893 004310 004737 031742 JSR PC,REQOUT sTEST REQUEST OUT OF KMC SETS 
1894 004314 000475 BR 6$ [REPORT ERROR 2ND BUFFER NOT RETURNED #=15 
1895 004316 005237 002452 5$: INC ERNUM 
1896 ;TEST THAT COMMAND IS TRANSMIT BUFFER OUT 
1897 004322 122777 000204 175734 CMPB 0 s«-#204,, @SEL2 :CHECK IF COMMAND IS 2ND RETURNING RX BUFFER 
1898 004330 001005 BNE 4$ SB=NO 
1899 004332 105077 175726 CLRB = @SEL2 DISMISS, 2ND RECEIVE BUFFER 
1900 004336 005337 002452 DEC ERNUM [RESET ERROR # 
1901 004342 0007 BR 3$ : & GO care SOME MORE 
1902 004344 123777 002462 175712 4$: CMPB = SHBE, @SEL2 iS COMMAND CORRECT? 
1903 004352 001056 BNE 6$ =NO REPORT COMMAND NOT CORRECT #=16 
1904 004354 005237 002452 INC ERNUM 
1905 s TEST THAT RETURNED STATUS IS AN ENDING MEMORY ADDRESS 
1906 004360 012737 000001 002462 MOV #1, SHBE 3GET CORRECT TTERMINATION STATUS 
1907 004 123777 002462 175700 34$: § CMPB  SHBE,aSEL6 : CORRECT STATUS? 
1908 004374 001045 BNE 6$ TB=N ERROR #=17 
1909 004376 005237 002452 ERNUM 
1910 NEST THAT RETURNED LINE # IS THE CURRENT LINE 
1911 004402 013737 002454 002462 MOV CURLIN, 
1912 004410 127737 175652 002454 CMPB  @SEL3,CURLIN ;CORRECT LINE #? 
1913 004416 001034 BNE 6$ *B=NO ERROR #=20 
1914 004420 005237 002452 INC ERNUM 
1915 | s TEST THAT ENDING MEMORY ADDRESS OF RETURNED BUFFER IS CORRECT 
1916 004424 017737 175644 02462 Mov ase SHBE sGET EXTENDED ADDR 
1917 004432 042737 140000 002462 BIC #140000,SHBE § EXTENDED BITS SHOULD BE CLEAR 
1918 004440 132777 000300 175630 BITB #300,aSEL7 7EA BITS? 
1919 004446 001020 BNE 6$ SB=YES ERROR #=21 
1920 004450 005237 002452 INC ERNUM 
1921 004454 105737 002311 TSTB MODE 
1922 004460 100404 BMI 5$ 
1983 0044 2 012737 033026 002462 MOV #T7BUF+4,SHBE CCP MODE TX ENDING BUFFER ADDRESS 
1925 004472 012737 03303 00246 35$: MOV #T7BUF+10,SHBE ;BOP MODE TX ENDING BUFFER ADDRESS 
1926 004500 023777 002462 175562 36$: CMP SHBE .@SEL4 *CORRECT 16 BIT ADDRESS? 
1927 004506 001405 BEQ $ SB=YES 
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MACY11 30A(1052) 21-0CT-81 E 43 
VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0043 
INCORRECT 16-817 ADDRESS #=22 

68: REPORT ERROR BY DISPLAYING CONTENTS OF THE CSRS 
JSR PC,GETCSR :GET CONTENTS OF THE CSRS 
ERROR+ 
JMP ;LOOP a 1$ 

- :TEST ALL LINES 

; JSR PC,GETLIN :GET THE NEXT LINE NUMBER 
pa BR TST10 TALL LINES TESTED 


002460 


001110 
002452 


002522 
002526 


002522 
002526 


002462 





irate Meee ae ee ee ees ge ne ee 


LINO 
THIS Viest CHECKS THAT A LINE OVERFLOW ate WILL RETURN A 
:""CONTROL _OUT’’ STATUS INDICATING THE LINE OVERFLOW. 
sEACH LINE IS ee FOR RE Ua oe THE ay rd ae STATUS BY ae Fs 
ue LINE, QUEUEING A_10 WORD TRANSMIT BUFFER AND A 1 WORD REC. 


; L OL OUT COMMAND INDICATING A LINE 
OVERFLOW FOR THE CURRENT LINE IS RETURNED AFTER THE REC. BUFFER IS RETURNED 


PUTT ITITI TTI TETITITITI TEE E LLL LE RELL E EEE EEL 


:TEST 10 
tab} blalebbb-t-b-blabohbolahbohhbehiabhbehhiehibehbbhibbiehiihihbihiihiihiihihiens 
78110 SCOPE 
MOV #10, TSTNUM :LOAD THE WD OF THIS TEST 
JSR PC, SETLIN ‘SETUP THE FIRST LI 
MOV #1$,$LPERR [LOAD LOOP ADDRESS (LOOP ON ERROR) 
1$: MOV #1, ERNUM 
CLR SHBE 
JSR PC, INTKMC zINITIALIZE KMC~11 FIRMWARE 
BR “FIRMWARE FAILED TO INITIALIZE #=1 
JSR PC, INTLNE TINITIALIZE LINE (# IN CURLIN 
BR $ ‘LINE FAILED TO INITIALIZE ra 
JSR PC, STCLK [SET MAINT LOOP + START CLOCK 
BR 3$ 3MA NT . COMMAND NOT ISSUED #=1 
JSR PC,SYNTIM TALLOW TIME FOR SYN 
MOV #TBUF ,R2 ‘ INITIALIZE TRANSMIT BUFFER BEFORE 1ST USE 
MOV #5,R1 + (LENGTH FOR CCP) 
JSR PC. MEMF IL 
CLR BUFEA :NO EA BITS 
MOV #RBUF ,BUF ADR 
MOV #1,BUF CNT :1 CHR. REC. BUFF. 
INC ERNUM 
JSR PC RIN ;LOAD A RECEIVE BUFFER IN 
BR TREC BUF FAILED TO LOAD #=2 
MOV #TBUF ,BUFADR 
MOV #5,,BUF CNT :SET LENGTH OF TRANSMIT BUFFER 
INC ERNUM 
JSR PC,XIN :LOAD A TRANSMIT BUFFER IN 
BR 3s) ‘TRANSMIT BUFFER FAILED TO LOAD #=3 


MOV 

iualt FOR orne® RECEIVE BUFFER (1 WORD) TO RETURN 

JSR PC ,REQOUT sTEST REQUEST OUT OF KMC SETS 

BR 33° RECEIVE BUFFER NOT RETURNED #=4 
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175326 
002452 
000205 
031742 
002452 
002462 


002452 
000004 
002311 
000040 
002462 
002452 
002454 
175220 


031650 


031470 
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002462 


175274 


002462 


002462 
175250 


002462 
002454 


002460 


001110 
002452 


iii Oa atari 
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CLRB aSEL2 sDISMISS THE FIRST RETURN (REC.) 
a waa BA A CONTROL bisT TO BE RETURNED INDICATING LINE OVERFLOW 





MOV #205 ~— 3SET_ EXPECTED COMMAND TO CONTROL OUT 

JSR PC ,REQOU sTEST REQUEST OUT OF KMC SETS 

Onc 3S am sCONTROL OUT FAILED TO RETURN #=5 

CMPB ee -@SEL2 sCONTROL OUT COMMAND? 

BNE RETURNED COMMAND IS NOT A CONTROL OUT #=6 


INC ERNUM 

sTEST THAT CORRECT OVERRUN STATUS FOR CURRENT MODE_IS 
;CORRECT. CCP MODE =BIT5 SEL7 - BOP MODE =81T2 SEL7 
MOV #4, SHBE aes ohYecek STATUS BIT FOR BOP MODE 






TSTB MODE ;BOP 

BMI 2$ :8=B80P 

MOV #40,SHB CCP MODE OVERRUN STATUS BIT 

CMPB SHBE , SSEL? LINE OVERRUN SET 

BNE 3$ LINE OVERRUN STATUS BIT NOT SET #=7 


INC ERNUM 

21S LINE # eel? SAME AS LINE UNDER TEST? 
MOV CURLIN, SHB 

CMPB @SEL3, CURLIN 


BNE 3$ ;8=NO ERROR #=10 

JSR PC,GETLIN 3GET THE NEXT LINE NUMBER 
BR TST11 T;ALL LINES TESTED 

BR 

;REPORT ERROR 

JSR PC,GETCSR :GET CONTENTS OF THE CSRS 
ERROR* 10 





RSTRCV 
THIS TEST CHECKS THAT THE RECEIVE BUFFERS ARE EiLLee BY THE "LINE RESET’ 
sCOMMAND BY INITIALIZING THE CURRENT LINE, QUEUEING A SHORT RECEIVE BUFFER 
270 Me. LINE, ISSUEING A ‘LINE RESET’ COMMAND, START 
sMAINTENANCE CLOCK, QUEUING A FEL Oe RECEIVE BUFFER TO THE LINE, 
ee ite A LONGER TRANSMIT BUFFER TO THE L 
D TESTING THAT A CONTROL OUT COMMAND IS RETURNED (LINE OVERFLOW 
OF THE CURRENT LINE) AFTER ONE RECEIVE BUFFER OUT IS RETURNED. 















s TEST 











SCOPE 


MOV #11, TSTNUM sLOAD THE WD OF THIS TEST 

JSR PC ,SETLIN ; SETUP THE FIRST LINE 

MOV #i$,S$LPERR :LOAD LOOP ADDRESS (LOOP ON ERROR) 
ne oe 

JSR PC, INTKMC 7 Mee | KMC-11 FIRMWARE 

BR 7$ FIRMWARE FAILED TO INITIALIZE #=1 
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CZ2KMEA.P11 20-OCT-81 17:05 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0045 
2040 005134 004737 031204 JSR PC, INTLNE ZINITIALIZE LINE (# IN CURLIN) 
2041 005140 000571 BR 7$ s INITIALIZATION OF LINES FAILED #=1 
2042 005142 004737 031274 JSR PC,STCLK :SET MAINT LOOP + START CLOCK 
2043 005146 000566 7$ CLOCK FAILED TO START 
2044 "QUEUE A RECEIVE BUFFER TO THE CURRENT LINE UNDER TEST 
2045 005150 012737 052660 002522 MOV #RBUF , BUF ADR 
2046 005156 005037 002524 CLR BUFEA 
2047 009162 012737 010002 002526 MOV #10002,BUFCNT ;3 CHARACTER RECEIVE BUFFER 
2048 005170 043737 002330 002526 BIC MODMSK . BUF CNT 
2069 005176 005237 002452 INC ERNUM 
2050 005202 004737 031344 JSR PC,RIN ;LOAD A RECEIVE BUFFER IN 
2051 005206 000546 BR , |, GRECEIVE {BUFFER FAILED TO LOAD #=2 
205 sISSUE THE ‘LINE RESET'’ COMMAND TO THE CURRENT LINE 
2053 005210 005237 002452 INC 
2054 005214 004737 031000 JSR PC ,REQNC 7CAN A CONTROL IN BE EXECUTED? 
2055 005220 000541 BR 7$ [CANNOT ISSUE COMMAND ERROR #=3 
2056 005222 005237 002452 INC ERNUM 
2057 005226 113777 002454 175032 MOVB CURLIN,@SEL3 ;LOAD THE LINE # 
2058 005234 012777 010000 175032 MOV W10000,@SEL6 = LINE RESET INDICATOR 
2059 005242 005077 175022 CLR @SEL4 D 
2060 005246 004737 031772 JSR PC, INPDUN :TEST THAT INPUT COMPLETED 
2061 005252 000524 BR 7$ [LINE RESET COMMAND FAILED TO COMPLETE #=4 
2062 005254 005237 002452 INC ERNUM 
2063 005260 004737 031274 JSR PC, STCLK zSET MAINT LOOP + START CLOCK 
2064 005264 000517 BR 
2065 005 004737 031714 JSR PC,SYNTIM sALLOW FOR SYNC 
005272 005237 002452 INC 
2067 005276 012737 052664 002522 MOV #RBUF+4,BUFADR ;;LOAD NEW RECV 
005 004737 031344 JSR PC,RIN :LOAD A RECEIVE BUFFER IN 
005310 000505 BR 7$ :;RECV BUF FAILED TO LOAD: #=6 
2070 005312 005237 002452 INC ERNUM 
2071 005316 012737 010006 002526 MOV #10006 ,BUF CNT 
72 005324 043737 002330 002526 BIC MODMSK , BUF CNT 
2073 005332 012737 052260 002522 MOV #TBUF , BUF ADR 
2074 005340 004737 031354 JSR PC,XIN ; LOAD A TRANSMIT BUFFER IN 
2075 005344 000467 BR 7$ : TRANSMIT BUFFER IN FAILED TO LOAD #=7 
2076 005346 005237 002452 INC ERNUM 
2077 005352 012737 000204 002462 MOV #204, SHBE s EXPECT RECEIVE BUFFER OUT 
2078 005360 004737 031742 JSR PC ,REQOUT T F 
2079 005364 000457 BR 7$ “BUFFER NOT RETURNED: #=10 
080 005366 105077 174672 CLRB = @SEL2 ‘DISMISS 
2081 005372 005237 002452 INC ERNUM 
2082 ;TEST THAT RECEIVE BUFFER WAS RESET (KILLED) BY TESTING THAT A LINE 
2083 ‘OVERFLOW "CONTROL OUT’’ STATUS IS NOW RECEIVED 
2084 005376 012737 000205 002462 Mov #205, SHBE ZEXPECT CONTROL OUT COMMAND 
2085 005404 005037 002464 CLR WAS 
2086 005410 005037 001160 CLR $TMPO 
2088 005414 105777 174644 4$: TSTB = @SEL2 
2089 005420 100404 BMI :B=OUT RDY SET 
2090 005422 005237 001160 INC $TMPO 
$092 eek 6004 ie ene i <TTRMORR iN DID NOT RETURN AN OUTPUT #=11 
005432 005237 002452 5$: 


INC ERNUM 
2094 :BOP-IF A CONTROL OUT SEL? BIT2 SHOULD BE SET 
2095 :CCP-IF A CONTROL OUT SEL? BITS SHOULD BE SET 
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002000 
002311 


020000 
002462 


002452 


002454 
002454 


031650 


005114 


031470 
005114 


031204 


052260 
sitet} 
000777 
Bos730 
002452 
031354 


002452 
031546 


452 
031274 
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002462 


002462 
174606 


002462 
174556 


002460 
001110 
002452 


002522 


002526 
002526 


VALUE FOR SOFTWARE SWITCH REGISTER 


MOV #2000, SHBE 4 Ae FOR BOP 

TSTB MODE ;BOP 

BMI 6$ 2B= vES 

MOV #20000, SHBE :NO, SET TO, ccP 
56S: BIT SHBE ,@SEL6 ou “BIT SET? 

BEQ 7$ =NO, ERROR #=12 


INC ERNUM 
ay wae LINE NUMBER RETURNED 


CMPB CURLIN, @SEL3 sCORRECT LINE # RETURNED 
BNE 7$ B=NO E 
JSR PC,GETLIN GET THE NEXT “LINE NUMBER 


57$: 


BR TST12 ZZALL LINES TESTED 
6$: JMP 1$ 3D0 NEXT LINE 
- ;REPORT ERROR BY DISPLAYING THE ERROR # AND CONTENTS OF CSRS 
‘ SR PC,GETCSR :GET CONTENTS OF THE CSRS 
mn 


eee te ee ee ee eee 


18 


1$: 


sRSTXMT 
3THIS TEST WILL CHECK THAT THE TRANSMIT eg ARE KILLED BY A 
;LINE RESET BY INITIALIZING THE CURRENT LINE, QUEUEING 
LINE, ISSUEING A LINE RESET C 
:OUTPUT IS RETURNED FROM THE KMC. 


{RRRRERERARREREREREAAREREREEERERERERRERERERERE EERE REREREE EERE 


sTEST = §12 
TITTIIITTILILIL TLE L ELLE LLL LLL ELLE ETT TTT TTT 


112: SCOPE 
MOV #12, TSTNUM [LOAD THE WD OF THIS TEST 
JSR PC, SETLIN :SETUP THE FIRST 
MOV #1$,$LPERR ‘LOAD LOOP ADDRESS (LOOP ON ERROR) 
CLR SHBE 
MOV #1, ERNUM 
JSR PC; INTKMC s INITIALIZE KMC-11 FIRMWARE 
BR 4$ RMWARE FAILED TO INITIALIZE #=1 
JSR PC, INTLNE SINITIALIZE LINE (# IN CURLIN) 
BR [LINE INITIALIZE FAILED TO COMPLETE #=1 


#TBUF ,BUF ADR i TRANSALT BUFFER ADDRESS 


3NO 
MOV #77 -BUF CNT 2816 CHARACTER BUFFER 
BIC MODMSK ,BUF CNT 


INC ERNUM 
JSR PC XIN LOAD A TRANSMIT BUFFER IN 
BR BUFFER IN FAILED TO COMPLETE #=2 


jisee A LINE RESET COMMAND 


JSR PC,LRSET ISSUE A LINE RESET TO THE CURRENT LINE 
Puc 4$° LINE RESET COMMAND FAILED #=3 


ERNUM 
JSR PC,STCLK 3SET MAINT LOOP + START CLOCK 
BR 4$ 7STCLK COMMAND FAILED #=4 


SEQ 0046 


BUFFER TO THE 


A TRANSMIT 
. STARTING THE CLOCK AND TESTING THAT NO 
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Ne 
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002460 
001110 
002452 


002522 


002526 
002526 


AGE 47 
VALUE FOR SOFTWARE SuitcH REGISTER 


JSR esr’ SYNTIM WAIT A WHILE 
NOW TEST THAT NO output’ IS RETURNED FROM THE KMC 


a” PC ,REQOUT AA REQUEST OUT OF KMC SETS 


108 “B= 
BR 4$ TERROR OUTPUT REQUESTED #=5 
10$: ARE THERE MORE LINES 
JSR Pee eg tue 2GET THE NEXT LINE NUMBER 


JMP 
zREPORT ERROR = DISPLAY THE CSR'S 


JSR PC,GETCSR 3GET CONTENTS OF THE CSRS 
ae 


4$: 


FERRARA REREREEEREREEEEEREEKEEKEEREEREREEEEREEEERREREREREREEKEEE 


;NABORT 
STHIS TEST WILL CHECK THAT THE “IN ABORT’” COMMAND DOES NOT 
{TERMINATE ANY OF THE TRANSMIT BUSFERS BY INITIALIZING EACH 
LINE. SENDING A TRANSMIT BUFFER TO THE LINE THEN ISSUEING 
iA INE ABORT "IN" <BITT SEL?=1) TO THE LINE, AND 7 

T THE NORMAL TRANSMIT BUFFER OUT IS RETURNED. 


SI Rn BB errs fh tet hg oA be eee 


sTEST = §=13 

ho sgroo-- pean ianien eee 
TST13: SCOPE 

MOV #13, TSTNUM LOAD THE WD OF THIS TEST 

JSR PC, SETLIN 3SETUP THE FIRST L 

MOV #i$,S$LPERR ;LOAD LOOP ADDRESS (LOOP ON ERROR) 
1$: CLR SHBE 

MOV #1,ERNUM 

JSR PC, INTKMC Fp hit | KMC-11 FIRMWARE 

BR 6$ sFIRMWARE FAILED TO INITIALIZE #=1 

JSR PC, INTLNE ZINITIALIZE LINE (# IN CURLIN) 

BR ;CURRENT LINE FAILED TO INITIALIZE #=1 

JSR PC,STCLK 7SET MAINT LOOP + START CLOCK 

BR CLOCK COMMAND FAILED 

MOV #TBUF ,BUFADR 

CLR BUFEA 3NO EA-BITS 


MOV #777 ,BUF CNT LARGE BUFFER 
BIC MODMSK , BUF CNT 
ERNUM 


JSR PC,XIN ;LOAD A TRANSMIT BUFFER IN 

BR “BUFFER IN FAILED TO COMPLETE #=2 

iNOW ISSUE THE ABORT COMMAND 

JSR PC ,REQNC 7CAN A CONTROL IN BE EXECUTED? 

BR [REPORT ERROR, HUNG OR OUTPUT REQUESTED #=3 
MOVB CURLIN -@SEL3 SLOAD LINE # 

MOVB sot ‘ABORT LINE 

CLR asteee 3 UNUSED 


CLRB  — @SEL6 UNUSED 
;WAIT FOR COMMAND TO COMPLETE 
INC ERNUM 


SEQ 0047 


J. 4 
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CZKMEA.P11 20-OCT-81 17:05 GET VALUE FOR SOFTWARE SWITCH REGISTER 
ggoe 006114 ett Hd 031772 JSR PC, INPDUN sTEST THAT INPUT COMPLETED 
209 006120 0004355 ROR ABORT COMMAND FAILED TO COMPLETE #=4 
2210 ;NOW WAIT FOR ANY BUFFERS TO BE RETURNED 
g211 006122 005237 002452 INC 
$si¢ B00 169 012737 000200 002462 MOV #200, SHBE 30N yrange EXPECT TX BUFFER OUT 
ssiz Boe lzs 012737 000002 006224 2 MOV #2,78 SET UP WAIT LOOP 
2215 006142 004737 031742 JSR PC ,REQOUT sTEST REQUEST OUT OF KMC SETS 
2216 006146 000401 BR 3$ 
2217 006150 000404 BR 4$ 
2218 006152 005337 006224 3$: DEC 7$ 
2219 006156 001371 BNE 2s 
2220 006160 000415 6$ :0N TRANSMIT, NO OUTPUT IS ERROR #=5 
2221 006162 4$: 
2222 :TEST FOR CORRECT TRANSMIT TERMINATION (EMA) 
2223 006162 005237 002452 INC og 
2224 006166 112737 000001 002462 MOVE #1,SHBE 
2225 006174 1235777 002462 174072 CMPB = SHBE , @SEL6 
2226 006202 001004 BNE 6$ #6, WRONG TRANSMIT STATUS ON ABORT 
2227 sTEST IF ALL LINES ARE DONE 
2228 006204 5$: 
2229 006204 004737 031650 JSR PC,GETLIN 3GET THE NEXT LINE NUMBER 
2230 006210 000406 BR TST14 z:ALL LINES TESTED 
$$33 006212 
2233 006214 6$: zREPORT ERROR 
2234 006214 004737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 
2235 006220 104013 ERROR+ 13 
2236 006222 000655 BR 1$ 
SSke 006224 000000 7$: 0 sDELAY COUNT 
2239 : NABORT 
2240 sTHIS TEST WILL CHECK THAT THE "OUT ABORT’* COMMAND DOES NOT 
2241 TERMINATE ANY OF THE RECEIVE oe BY INITIALIZING EACH 
2242 sLINE, SENDING A RECEIVE BUFFER TO T + LINE, THEN ISSUEING 
2243 A LINE ABORT ‘OUT’ (BIT! SEL7=1) TO THE LINE, AND TESTING 
2244 :THAT NO STATUS (BUFFER OUT) IS RETURNED 
$se2 PII TITITITITITI TILT ITI TIT TITiTiTTITTi titi Ti Lit Lit LTTE Leki 
2247 sTEST 14 
2248 iuveneensoccesengpnantaconneneNnennenOnnOneIeTNOERIRRCONONEOOOER 
5550 006030 O19737 000014 002460 = MOV. #14, TSTNUM LOAD THE WD OF THIS TEST 
2582 os2a 012/37 06050 001110 mov ISSSLPERR [LOAD LOOP ADDRESS CEOOP OW ERROR? 
2253 006250 005037 002462 1$: CLR SHBE ; 
2254 006254 012737 000001 002452 MOV #1 ,ERNUM 
2255 006262 004737 030664 JSR PC, INTKMC i ne KMC~11 FIRMWARE 
2256 006266 000474 BR 6$ FIRMWARE FAILED TO INITIALIZE #=1 
2257 006270 004737 031204 JSR PC, INTLNE s INITIALIZE LINE (# IN CURLIN 
2258 006274 000471 BR 6$ CURRENT LINE FAILED TO ay ME ae #=1 
259 006276 004737 031274 JSR PC,STCLK SET MAINT LOOP + START CLOCK 
260 006302 800266 BR 6$ CLOCK COMMAND FAILE 
S55) GRERTS later Geaese omeS22 FY FR AUFAOR on exits 
2263 006316 0127357 000777 002526 MOV #777 ,BUF CNT SLARGE BUFFER 


Om 


4 
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CZKMEA.P11 20-OCT-81 17:05 T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0049 

264 006324 043737 002330 002526 BIC MODMSK , BUF CNT 

265 006332 005237 002452 INC ERNUM 
2266 006336 004737 031344 JSR PC RIN :LOAD A RECEIVE BUFFER IN 

3267 006342 000446 BR 6s “BUFFER IN FAILED TO COMPLETE #=2 

268 :NOW ISSUE THE ABORT COMMAND 
2269 006344 005237 002452 INC 
2270 006350 004737 031010 JSR PC ,REQNX :CAN A CONTROL OUT BE EXECUTED? 

2271 006354 000441 BR $ SREPORT ERROR, HUNG OR OUTPUT REQUESTED #=3 
2272 006356 113777 002454 173702 MOVB CURLIN. @ ,@SEL3. LOAD LINE # 
2273 006364 112777 000002 173704 MOVB :ABORT LINE 
2274 006372 005077 173672 CLR océee SUNUSED 
2275 006376 105077 173672 CLRB oeEL 5 : UNUSED 
2276 :WAIT FOR COMMAND TO COMPLETE 
2277 006402 005237 002452 INC RNUM 
2278 006406 004737 031772 JSR PC, INPDUN :TEST THAT INPUT COMPLETED 

2279 006412 000422 BR OR ABORT COMMAND FAILED TO COMPLETE #=4 
2280 “NOW WAIT FOR ANY BUFFERS TO BE RETURNED 
2281 006414 005237 002452 INC ERNUM 
2082 906420 012737 000002 006470 a MOV #2,7$ :SET UP WAIT LOOP 
2284 006426 004737 031742 JSR PC ,REQOUT zTEST REQUEST OUT OF KMC SETS 

2285 006432 000401 BR 3$ 
2286 006434 000404 BR 4$ 
2287 006436 005337 006470 3$: DEC 7$ 
2288 006442 001371 BNE 2$ 
2289 006444 000401 BR 5$ Z0N RECEIVE, NO OUTPUT IS EXPECTED 

2290 006446 000404 4$: BR 6$ ‘OUTPUT REQUESTED IS ERROR #=5 

2291 ;TEST IF ALL LINES ARE DONE 

2292 006450 5$: 
2293 006450 004737 031650 JSR PC,GETLIN :GET THE NEXT LINE NUMBER 

006454 000406 BR TST15 TALL LINES TESTED 

3295 006456 000674 BR 1$ 
a4 ieee 004737 031470 - oa BC OETCSR GET CONTENTS OF THE CSRS 

2299 006464 104014 ERROR+ 14 
2300 006466 000670 BR 1$ 
3301 006470 000000 7$: 0 :DELAY COUNT 
2303 FF RARER REERRERREEEREEEEEREEREEEEREEEKEAEREERERREERAEERREKEERAEREEEE 

2304 ABORT 
2305 :THIS TEST WILL CHECK AN "ABORT OUT'’ COMMAND WILL RETURN (KILL) 
2306 2 THE BUFFER CURRENTLY QUEUED TO THE LINE UNDER TEST, BY INITIALIZING 
2307 L LINES, SENDING A TRANSMIT BUFFER TO EACH LINE, THEN ISSUEING 
2308 ry ty NE ABORT OUT COMMAND TO EACH LINE INDIVIDUALLY TESTING THAT 
2309 SONLY THE BUFFER QUEVED, TO THAT LINE IS RETURNED W WITH 

2310 : STATUS sete) (-6) "TERMINATED ON REQUEST 

$31] jpseepat sasseuneseoeveesessvreceneneeonenternrest twa Tennent 

TEST 1 

5318 REAAAAAAKEKAEAEAAAEAAAEEAEAEAEEAARAAAEAEAEAAREAEREARAEEEARAEEEEAAEREREEEE 
Seg ith iba 000015 002460 tSr15: aay #15, TSTNUM ;LOAD THE WD OF THIS TEST 

$319 bosses O18087 poste 001110 Joh SETLIN, sSEIUP The ADDRESS. (LOOP ON ERROR) 

2318 006514 012737 000001 002452 1$: MOV #1, ERNUM 
2319 006522 005037 002462 CLR SHBE 
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030664 
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002330 
002524 
031354 
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FOR SOFTWARE SWITCH REGISTER 


Hp tnt KMC-11 FIRMWARE 
;FIRMWARE F yy TO INIT #=1 
HINITIALIZE A NES 


LIN 
; INITIALIZE (INES FAILED #=1 
zSTART ALL So ae LINES THAT ARE ENABLED 
CLOCK COMMAND FAILED 
z INIT LINE 


LOAD TRANSMIT BUFFER 
zLARGE BUFFER 


;LOAD A TRANSMIT BUFFER IN 
;BUFFER_IN FAILED TO LOAD #=2 
:G EXT LINE NUMBER 


T LINE 
:BRANCH HELP TO ERROR 


2 CAN A_CONTROL OUT BE EXECUTED? 
sHUNG OR OUTPUT PENDING #=3 


LOAD LINE # 
sABORT LINE 
UNUSED 


TEST THAT INPUT COMPLETED 

:COMMAND FAILED TO COMPLETE #=4 

; (ACCOUNT FOR EXTRA ERROR ON RECEIVE) 
COMMAND BITS=0 + OUT 1/0=0 

;TEST REQUEST OUT OF KMC SETS 

NO ABORTED BUFFER RETURNED #=6 
sBUFFER OUT + BIT2=0 

3B=SEL2 NOT CORRECT, ERROR #=7 


CORRECT LINE #? 
7B=N ERROR #=10 


JSR PC, INTKMC 
BR 0$ 
JSR PC, INTALL 
JSR PC, CLKALL 
BR 20$ 
INC ERNUM 
- JSR PC,SETLIN 
Mov #TBUF ,BUFADR 
MOV #10777, BUF CNT 
BIC MODMSK , BUF CNT 
CLR BUF EA 
JSR PC XIN 
BR 20 
JSR PC,GETLIN 
BR 278 
BR 2$ 
20$: JMP 8$ 
:ABORT EACH BUFFER 
27$: JSR PC,SETLIN 
3$ $ MOV e 
JSR PC. REQNX 
BR 208 
INC ERNUM 
MOVB CURLIN, @SEL3 
MOV #2,aSEL7 
CLRB  — @SEL6 : UNUSED 
:WAIT FOR ABORT COMMAND TO COMPLETE 
JSR PC, INP 
BR 20 
:TEST THAT BUFFER IS RETURNED 
5$: INC ERNUM 
INC ERNUM 
MOVB #200, SHBE 
JSR PC ,REQOUT 
7$: INC ERNUM 
CMPB  =s-«s #200, @SEL2 
BNE 8$ 
INC ERNUM 
MOVB = CURLIN, SHBE 
CMPB = CURLIN. aSEL3 
BNE 84 
INC 
MOVB #6, SHBE 
CMPB ss #6 @SEL6 
BNE 8$ 


CLRB @SEL2 
TEST FOR LINES TO ABORT 
SR PC,GET 


LIN 
TST16 
$ 


BR 
8$: zREPORT ERROR 


CORRECT STATUS RETURNED? 
3B=N ERROR #=11 


GET THE NEXT LINE NUMBER 
2sALL LINES TESTED 


SEQ 0050 
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031470 
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000016 
030244 
007064 
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002462 
030664 
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002452 
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002460 


001110 
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173034 
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51 
VALUE FOR SOFTWARE SWITCH REGISTER 


JSR + aahtaeaes GET CONTENTS OF THE CSRS 
ERROR+ 1 

CLRB @SEL2 

BR 1$ 


FFARR EEEEEEAEEEEEEEREREAERERREERAERRRERREREREREREEEEEEEEE 


; ABORT 
sTHIS TEST WILL CHECK AN ‘‘ABORT IN*’ COMMAND WILL RETURN (KILL) 
: THE BUFFER CURRENTLY QUEUVED TO THE LINE UNDER TEST BY INITIALIZING 
;ALL LINES, SENDING A RECEIVE Ay TO EACH LINE, THEN ISSUEING 
3A LIN Nn‘ D TO EACH LINE INDIVIDUALLY . inten THAT 
SONLY THE BUFFER QUEUVED TO Lee 18 IS RETURNED WITH 
ZSTATUS (SEL6) OF (-6) ‘TERMINATED ON REQUEST’ 
I canis 5 A th TB ee oer Ah eg roe + RR 
sTEST 16 


23 TTT TITITITILILITLL LLL LLL LLL LITT L LLL T Tt tt 


TST16: SCOPE 
MOV #16, TSTNUM sLOAD THE WD OF THIS TEST 
:SETUP THE FIRST LINE 
[LOAD LOOP ADDRESS (LOOP ON ERROR) 
1$: MOV #1,ERNUM 


SHB 
JSR eis 


Fp Ue KMC-11 FI 
BR FIRMWARE F 
iS PC, INTALL 


RMWARE 
AILED TO INIT #=1 
SINITIALIZE ALL LINES 

; INITIALIZE LINES FAILED #=1 


JSR PC, CLKALL T ALL CLOCK LINES THAT ARE ENABLED 
BR 20$ :CLOCK COMMAND FAILED 
INC ERNUM 

i JSR PC, SETLIN ZINIT LINE 


Mov #RBUF ,BUFADR LOAD RECEIVE BUFFER 
MOV #10100, BUF CNT 


BIC MODMSK , BUF CNT 
BUF EA 


CLR 
JSR PC RIN ZLOAD A RECEIVE BUFFER IN 
BR 20 [BUFFER IN FAILED TO LOAD #=2 
JSR PC.GETLIN [GET THE NEXT LINE NUMBER 
BR 278 tALL LINES TESTE 
BR 2$ [TEST NEXT LINE 

20S: JMP 8$ ‘BRANCH HELP TO ERROR 
sABORT EACH BUFFER 

27s: JSR PC, SETLIN 

$: MOV #3. ERNUM 
JSR PC REQNC :CAN A CONTROL IN BE EXECUTED? 
BR 208 ‘HUNG OR OUTPUT PENDING #=3 
INC ERNUM 
MOVB  CURLIN,@SEL3  ;LOAD LINE # 
MOVB #2,aSEL7 [ABORT LINE 
CLR aSEL4 > UNUSE 


CLRB = @SEL6 * UNUSE 
[WAIT FOR ABORT COMMAND TO COMPLETE 

JSR PC, INPDUN :TEST THAT INPUT COMPLETED 

BR 208 [COMMAND FAILED TO COMPLETE #=4 


SEQ 0051 


—— 


om 
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CZKMEA.P11 20-OCT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0052 
432 -TEST THAT BUFFER IS RETURNED 
3038 907256 005237 002452 5$: INC ERNUM 
2434 007262 105737 002311 TSTB MODE 
100406 BMI 65 

436 sONLY IN CCP MODE, CHARACTER MUST BE WRAPPED AROUND AND 

2437 {RECEIVED IN ORDER FOR ABORT TO BE PROCESSED 

2438 007270 012737 033002 002522 MOV #TERBUF ,BUFADR 

2439 007276 004737 031354 JSR PC,XIN ;LOAD A TRANSMIT BUFFER IN 

oat oor aoe 000460 és BR as ‘PRIMING TRANSMIT BUFFER IN FAILED TO COMPLETE #=5 
2442 007 005237 002452 INC ERNUM : (ACCOUNT FOR EXTRA ERROR ON RECEIVE) 
2443 007310 112737 000204 002462 MOVB #204, SHBE OMMAND BITS=0 + OUT I/0=1 

2444 007316 004737 031742 JSR PC ,REQOUT : TEST REQUEST OUT OF KMC SETS 

2445 007322 000450 BR 8$ “NO ABORTED BUFFER RETURNED #=6 

2446 007324 005237 002452 7$: INC ERNUM 
2447 007330 122777 000204 172726 CMPB #204 ,aSEL2 :BUFFER OUT + BIT2=1 

2448 007336 OO 1036 BNE 8$ *B=SEL2 NOT CORRECT, ERROR #=7 

2449 007340 005237 002452 INC ERNUM 
2450 007344 113737 002454 002462 MOVB = CURLIN, SHBE 
2451 007352 123777 002454 172706 CMPB CURLIN, *aSEL3 sCORRECT LINE #? 

2452 007360 001031 BNE aS *B=N ERROR #=10 

2453 007362 005237 002452 INC ERNUM 
2454 007 112737 177772 002462 MOVB #6, SHBE 
2455 007374 122777 177772 172672 CMPB #-6,aSEL6 sCORRECT STATUS RETURNED? 

2456 007402 001020 BNE aS ‘B=N ERROR #=11 
2457 007404 105077 172654 CLRB = a@SEL2 ‘COMMAND DONE 

2458 007410 005237 002452 INC ERNUM 
2459 007414 105737 002311 TSTB MODE 
2460 007420 100405 BMI 9$ 
2461 007422 004737 031742 JSR PC,REQOUT sTEST REQUEST OUT OF KMC SETS 

24 007426 000406 BR $ :PRIMING TRANSMIT BUFFER FAILED TO RETURN #=12 
2463 007430 105077 172630 CLRB aSEL2 sDISMISS RETURNING XMIT BUFFER IN CCP MODE 
2464 007434 9$: 
2465 ; TEST FOR LINES TO ABORT 

2466 007434 004737 031650 JSR PC,GETLIN sGET THE NEXT LINE NUMBER 

2467 007440 000407 BR TST17 ‘ALL LINES TESTED 

2468 007442 000660 BR 
2469 007444 8$: ;REPORT ERROR 
2470 007444 004737 031470 JSR PC.GETCSR sGET CONTENTS OF THE CSRS 

2471 007450 104016 ERROR+ 16 
347@ 007452 105077 172606 CLRB = @SEL2 
2473 007456 000602 BR 1$ 
Sipe 
2476 22 ams MS eae ee eee 

2477 ALTSTA 
2478 THIS TEST CHECKS THAT AN ALTERNATE TRANSMIT BUFFER CAN BE QUEUED 
2479 *TO EACH LINE AND IS RETURNED WHEN A LINE ABORT COMMAND 

480 [1S ISSUED. AFTER EACH LINE IS TESTED FOR RETURNING ITS 

481 SBUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE 

483 J EAA AAAEREEEEREAREEEREEERERRAREEERAEKERERERERREERERAEREREEEEEEEE 

484 

485 :TEST 17 
2486 ETT TT Tee TTT TST TTT TTT TTTOTTTTTITITITTTTTITITITTTITTTT TTT TTT it 


2487 007460 000004 18117: SCOPE 
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12737 


232 
~ 
SNS 


sc 
ps 
wr 
NN NNN ONS SN SE NSS 


geeeee 


WANOW WW WWIWIWWIW EW EW EWI 


SeSsese eeoues 


Sse35 


So 
= 
Nm 
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— 
kad 
N 
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17 
Rees 
02 
000001 
2462 
039664 
031120 
031226 
030244 
BOE 35 
01777 
002330 
bes3ce 
052260 
031354 
031650 
030244 
002452 
031354 
031650 
010106 
030244 
000004 
010120 
031010 


002452 
002454 


031742 
002452 
002462 
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002460 
001110 
002452 


002526 
002526 


002522 


002452 


360 
362 


ey 
NN 
nmr 


002462 


172274 


1$: 


2$: 


25$: 


3$: 


65$: 


V #17, TSTNUM 
JSR PC SETLIN 
MOV #18, $LPERR 
JSR PC,SETLIN 
MOV 1-ER 
CLR HB 


SHBE 
JSR PC, INTKMC 
JSR PC, INTALL 
JSR PC, CLKALL 
BR 0$ 

JSR PC, SETLIN 


INC 

MOV #17777 ,BUF CNT 
BIC MODMSK , BUF CNT 
CLR A ry 


MOV UFADR 
31 BUFFER. > Y eRe LINE 
JSR PC, XIN 


BR 

JSR PC, GETLIN 
BR 25$ 

BR 2$ 

JSR PC,SETLIN 
INC 

;LOAD ALT TO LINE 
JSR PC,XIN 
JSR PC,GETLIN 
BR 


31$ 
3$ 


3LOAD THE WD 'Y Th TEST 
;SETUP THE FIRST LINE 
LOAD LOOP ADDRESS (LOOP ON ERROR) 


s INITIALIZE KMC=11 FIRMWARE 
‘UNIT FAILED TO INITIALIZE #=1 
INITIALIZE ALL LINE 
TLINE INITIALIZE FAILED #=1 
*START ALL CLOCK LINES THAT ARE ENABLED 
:CLOCK COMMAND FAIL 
SINT TIALIZE OP INE ¥ 


sLARGE BUFFERS 


LOAD A TRANSMIT BU"FER IN 


D0 NEXT LINE 


LOAD _A TRANSMIT BUFFER IN 
;BUFFER_IN FAILED TO COMPLETE #=3 
GET THE NEXT LINE NUMBER 


sFORM ERROR JUMP HELP 


JSR PC,SETLIN 
; ISSUE “LINE ABORT’’ TO THE CURRENT LINE 
nog | #4,ER 


10$ 
JSR PC ,REQNX 
BR 208 
INC ERNUM 
MOVB CURLIN, @SEL3 
MOVB #2,a@SEL7 
CLR aséL4 
CLRB  aSEL6 
JSR PC, INPDUN 
BR 208 
INC ERNUM 
INC 
MOV #200, SHBE 
JSR »REQOU 


sSOFT SWITCH TO INDICATE WHICH BUFFER IS UNDER TEST 


:CAN A_CONTROL “ BE EXECUTED? 
SOUTPUT REQ. OR FIRMWARE HUNG #=4,14 


sABORT BUFFER 

; UNUSED 

3 UNUSED 

TEST ee INPUT oT ee 


SLINE ABORT COMMAND FAILED TO COMPLETE#=5,15 
: (ALLOW FOR EXTRA ERROR IN RECEIVE TEST) 


sTEST REQUEST OUT OF KMC SETS 
3NO OUTPUT AFTER ABORTING BUFFERS #=7,17 


INC e RNUM 
irest THAT OUTPUT IS A BUFFER OUT + REFLECTS CORRECT 1/0 BIT 


SHBE , @SEL2 


CORRECT STATUS? 


SEQ 0053 
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544 007770 00104 BNE :B=WRONG STATUS IN SEL2 ERROR #=10,20 
545 007772 005237 002452 INC ERNUM 
2546 “TEST THAT OUTPUT BUFFER HAS CORRECT LINE # 
2547 007776 113737 002454 002462 MOVB  —- CURLIN, SH 
348 010004 123777 002454 172254 CMPB  CURLIN,@SEL3  ;CORRECT LINE #? 
2549 010012 001035 BNE 9$ ‘B=N WRONG LINE # RETURNED ERROR #=11,21 
2550 010014 005237 002452 INC ERNUM 
2551 “TEST THAT STATUS (SEL6) IS A "TERMINATED ON REQUEST’ STATUS 
255¢ 010020 112737 177772 002462 MOVB 3s #=6,, SH 
2553 010026 122777 177772 172240 CMPBs#=6, @SEL6 :CORRECT STATUS 
2554 010034 901924 BNE 9$ :B=WRONG STATUS = ERROR #=12,22 
2555 010036 005237 002452 INC ERNUM 
2556 010042 105077 172216 CLRB = @SEL2 ;COMMAND DONE 
2557 010046 005237 002452 INC ERNUM (ALLOW FOR EXTRA. ERROR IN RX TEST) 
2558 010052 005137 010120 COM 10$ 1ST BUFFER OR 2ND 
2559 010056 001303 BNE 5$ *B=1ST, DO 2ND 
2560 010060 005237 002452 INC ERNUM 
2561 010064 005037 002462 CLR SHBE 
$206 NOW LOAD ANOTHER ALTERNATE BUFFER 
2563 010070 004737 031354 5SR PC,XIN :LOAD_A TRANSMIT BUFFER IN 
2564 910074 000404 BR 9$° sALT BUFFER FAILED TO LOAD #=24 
2565 010076 8$: :CHECK FOR MORE LINES TO TEST 
2566 010076 004737 031650 JSR PC,GETLIN :GET THE NEXT LINE NUMBER 
2567 010102 81$: 
2568 010102 000410 BR TST20 7 sALL LINES TESTED 
2569 010104 000663 BR 4$ [DO NEXT LINE 
2571 010106 9$: sREPORT ERRORS 
2572 010106 004737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 
2573 010112 104017 PRR OR+ 17 
2574 010114 000137 007502 JMP 
2575 010120 10$: O :SWITCH 
2576 010122 000000 15$: 0 ‘DELAY COUNT 
$258 32 ae NS eet nce anne itachi veaeee erence 
zALTSTA 
2580 :THIS TEST CHECKS THAT AN ALTERNATE RECEIVE BUFFER CAN BE QUEUED 
2581 [TO EACH LINE AND IS RETURNED WHEN A L LINE ABORT COMMAND 
2582 71S ISSUED. AFTER EACH LINE IS TES’ED FOR RETURNING ITS 
2585 SBUFFERS, AN ALTERNATE BUFFER IS QUEUED TO THE LINE 
$202 se RAEEAAAEEAAEARAAAEAARAKARAEAEREEREKERAAAERAEAERERAEEARERAAERAERERRRERREE 
seas :TEST 20 
2588 jteARRRReNRRAREReRARREREeERtRHAenenEReeeneneReeneneteeetet 
2589 010124 000004 7120 SCOPE 
2590 010126 012737 000020 002460 MOV #20, TSTNUM :LOAD THE WD OF THIS TEST 
2591 010134 004737 030244 JSR PC, SETLIN ‘SETUP THE FIRST LINE 
2592 010140 012737 010146 001110 MOV #1$,S$LPERR SLOAD LOOP ADDRESS (LOOP ON ERROR) 
2593 010146 004737 030244 1$: JSR PC,SETLIN 
2594 010152 012737 000001 002452 MOV #1. ERNUM 
2595 010160 005037 002462 CLR SHBE 
2596 010164 004737 030664 JSR PC, INTKMC , SINITIALIZE KMC-11 FIRMWARE 
597 010170 000447 BR UNIT FAILED TO INITIALIZE #=1 
598 010172 004737 031120 JSR PC, INTALL SUNITIALTZE ALL LINES 
2599 010176 000444 BR 208 SLINE INITIALIZE FAILED #= 
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2600 010200 004737 031226 JSR PC, CLKALL :START ALL CLOCK LINES THAT ARE ENABLED 
1 010204 900441 BR 208 zCLOCK COMMAND FAILED 
260. 919206 130 030244 JSR PC, SETLIN sINITIALIZE LINE # 
260 01021 003¢ 7 002452 INC 
2604 010216 le 7? 017777 002526 MOV #17777,BUFCNT  ;LARGE BUFFERS 
2605 010224 737 002330 002526 BIC MODMSK , BUF CNT 
2606 010232 005037 002524 CLR BUFEA 
2607 010236 012737 052660 002522 MOV ARBUF ,BUF ADR 
2608 010244 2s: :1 BUFFER TO EACH LINE 
2609 010244 004737 031344 JSR PC,RIN ZLOAD A RECEIVE BUFFER IN 
2610 010250 000417 BR 20$ ;BUFFER FAILED TO LOAD #=2 
2611 010252 004737 031650 JSR PC,GETLIN “GET THE NEXT LINE NUMBER 
e612 010256 000401 BR 258 [DONE ALL LINES 
2613 010260 000771 BR 2$ [DO NEXT LINE 
2614 010262 004737 030244 25$: JSR PC,SETLIN 
2615 010266 005237 002452 INC 
2616 010272 3$: ;LOAD ALT TO LINE 
2618 010272 004737 031344 JSR PC,RIN ZLOAD A RECEIVE BUFFER IN 
2619 010276 000404 BR 0$ [BUFFER IN FAILED TO COMPLETE #=3 
2620 010300 004737 031650 JSR PC,GETLIN [GET THE NEXT LINE NUMBER 
2621 010304 000403 BR 318 
2622 010306 000771 BR 3$ 
2623 010310 000137 010634 0$: JMP $s :FORM ERROR JUMP HELP 
2624 010314 004737 030244 1$: JSR PC,SETLIN 
2625 s ISSUE "LINE ABORT'’ TO THE CURRENT LINE 
2626 010320 012737 000004 002452 4$: MOV #4, ERNUM 
2627 010326 005037 010646 * CLR 10$ :SOFT SWITCH TO INDICATE WHICH BUFFER IS UNDER TEST 
2629 010332 004737 31000 JSR PC,REQNC :CAN A CONTROL IN BE EXECUTED? 
2630 010336 000764 BR 208 SOUTPUT REQ. OR FIRMWARE HUNG #=4,14 
2631 010340 005237 002452 INC ERNUM 
2632 010344 113777 002454 171714 MOVB CURLIN, @SEL3 
2633 010352 112777 000002 171716 MOVB #2,@SEL7 ;ABORT BUFFER 
2634 010360 005077 171704 CLR aSEL4 UNUSED 
2635 010364 105077 171704 CLRB = aSEL6 ‘UNUSED 
2636 010370 004737 031772 JSR PC, INPDUN [TEST THAT INPUT COMPLETED 
2637 010374 000745 BR 208 ‘LINE ABORT COMMAND FAILED TO COMPLETE#=5,15 
2638 010376 005237 002452 INC ERNUM : (ALLOW FOR EXTRA ERROR IN RECEIVE TEST) 
2639 010402 105737 002311 TSTB MODE 
2640 010406 100406 6$ 
2641 3IN CCP MODE ONLY, A CHARACTER MUST BE WRAPPED AROUND AND 
264 SRECEIVED IN ORDER FOR ABORT TO BE PROCESSED. 
2643 010410 012737 033002 002522 MOV #TERBUF , BUF ADR 
2644 010416 004737 031354 JSR PC,XIN ;LOAD A TRANSMIT BUFFER IN 
3645 010422 000504 a BR 9$ ‘PRIMING TRANSMIT BUFFER FAILED TO COMPLETE #=6,16 
2647 010424 005237 002452 INC 
2648 010430 012737 000204 002462 MOV tra SHBE 
$e86 fincas Spoats ote ae CéOS “neBOuT {NO OUTPUT AFTER ASORTING BUFFERS #=7,17 
ae ones SOS SOS mm INEST THAT OU ITPUT IS A BUFFER QUT AREELECTS CORRECT 1/0 BIT 
M 
$635 oroiso 125777 onzus2 171608 © taps." Stet asel2’» ” “scOmmedl stanugh "SDD OO 
2655 010460 besa 002452 INC ERNUM 
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265 -TEST THAT OUTPUT BUFFER HAS CORRECT LINE # 
657 010464 113737 002454 002462 Move =«6«C , 
2658 010472 123777 002454 171566 CMPB CURLIN,@SEL3 ;CORRECT LINE #? 
2659 010500 001055 BNE 9$ ‘B=N WRONG LINE # RETURNED ERROR #=11,21 
2660 010502 005237 002452 INC ERNUM ; - 
2661 “TEST THAT STATUS (SEL6) IS A “TERMINATED ON REQUEST’’ STATUS 
e662 010506 112737 177772 002462 MOVB 6, 
2663 010514 122777 177772 171552 CMPB ss #=6, @SEL6 : CORRECT STATUS 
2664 010522 001044 BNE 9$ =WRONG STATUS = ERROR #=12,22 
2665 010524 005237 002452 INC ERNUM 
2666 010530 105077 171530 CLRB = @SEL2 : COMMAND DONE 
2667 010534 105737 002311 TSTB MODE 
2668 010540 100415 BMI $ 
3669 010542 012737 000127 010650 ian MOV #127,15$ :SET UP WAIT LOOP 
2671 010550 004737 031742 JSR PC ,REQOUT ZTEST REQUEST OUT OF KMC SETS 
2672 010554 000401 BR 12$ 
2673 010556 000404 BR 13$ 
2674 010560 005337 010650 12$: DEC 15$ 
2675 010564 001371 BNE 11$ 
2676 010566 000422 BR 9$ :PRIMING XMIT BUFFER NOT RETURNED #-13,23 
2677 910570 105077. 171470 138: CLRB = @SEL2 SACCOUNT FOR RETURNING XMIT BUFFER 
2679 010574 005237 002452 INC ERNUM : (ALLOW FOR EXTRA ERROR IN RX TEST) 
2680 010600 005137 010646 COM 10$ ‘1ST BUFFER OR 2ND? 
2681 010604 001252 BNE 5% ‘B=1ST, DO 2 
2682 010606 005237 002452 INC 
2683 010612 005037 002462 CLR SHBE 
2684 :NOW LOAD ANOTHER ALTERNATE BUFFER 
2685 010616 004737 031344 JSR PC,RIN ;LOAD_A RECEIVE BUFFER IN 
2686 010622 000404 BR “ALT BUFFER FAILED TO LOAD #=24 
2687 010624 8$: 7CHECK FOR MORE LINES TO TEST 
2688 010624 004737 031650 JSR PC,GETLIN :GET THE NEXT LINE NUMBER 
2689 010630 81$: 
2690 010630 000410 BR TST21 ZALL LINES TESTED 
691 010632 000632 BR 4$ :DO NEXT LINE 
2693 010634 9$: :REPORT ERRORS 
2694 010634 004737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 
2695 010640 104020 ERROR* 20° 
2696 010642 000137 010146 JMP 
2697 010646 10$: “ : SWITCH 
698 010650 15$: 0 ‘DELAY COUNT 
$00 SPREE ee maneetemasiee centie 
ALTBUF S 
270 :THIS TEST CHECKS THAT ALTERNATE BUFFERS CAN BE QUEUED TO EACH 
270 SLINE AND ARE PROPERLY HANDLED BY THE FIRMWARE. A PROGRESSION IS 
2704 [DONE, TESTING THE QUEUEING OF ALTERNATE BUFFERS TO EACH LINE. 
2705 [THE CURRENT LINE IS QUEUED 2 RECEIVE AND 2 TRANSMIT BUFFERS 
706 ZAND A TEST THAT THE BUFFERS FOR THE CURRENT LINE ARE RETURNED CORRECTLY. 
5/00 FFARR ARRERAEREEEEKEREREEEEEEERERRAERAERAEEEEERAEREREREREEREREREEREE 
2710 


; TEST 
e 
2711 SC FARRAR EREERERREREREREEEREREREEEEEERAEEAREEREREEEREREREREEEEE 
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2712 010652 TST21: SCOPE 
2713 010654 012737 000621 002460 MOV #21, TSTNUM :LOAD THE WD OF THIS TEST 
2714 010662 004737 030244 JSR PC, SETLIN ‘SETUP THE FIRST LI 
2715 010666 012737 010674 001110 MOV #1$,$LPERR ‘LOAD LOOP ADDRESS (LOOP ON ERROR) 
2716 010674 012737 001 002452 1$: MOV #1,ERNUM 
2717 010702 905037 002462 CLR SHBE 
2718 910706 004737 030664 JSR PC, INTKMC HINITIALIZE KMC=11 FIRMWARE 
2719 01071 000432 BR SKMC FAILED TO INITIALIZE #=1 
2720 010714 004737 031120 JSR PC, INTALL S INITIALIZE ALL LINE 
2721 010720 000447 BR 5$ SLINE INITIALIZE FAILED #=1 
2722 010722 004737 031274 JSR PC, STCLK ‘SET MAINT LOOP + START CLOCK 
2723 010726 000444 BR :MAINTENANCE COMMAND NOT ISSUED #=1 
2724 010730 004737 031714 JSR PC,SYNTIM ‘ALLOW TIME FOR SYNC 
2725 010734 005237 002452 INC ERNUM 
2726 010740 005037 002524 CLR BUFEA 
2727 010744 012737 910020 002526 MOV #10020,BUFCNT  ;RECEIVE BUFFER LONGER THAN XMIT BUFFER 
2728 010752 043737 002330 002526 BIC MODMSK., BUF CNT 
2729 010760 005037 011402 4$: CLR 14$ sTIMES SWITCH 
3730 910764 012737 052660 002522 a MOV #RBUF ,BUF ADR 
2732 010772 004737 031344 JSR PC,RIN :LOAD A RECEIVE BUFFER IN 
2733 010776 000567 BR 11$ ZBoRECEIVE BUFFER FAILED TO LOAD #=2 
2734 011060 005137 011402 COM 14$ T OR 2ND BUFFER IN 
2735 011004 001372 BNE 5$ 
2736 011006 005237 002452 INC ERNUM 
2737 011012 012737 052260 002522 MOV #TBUF ,BUFADR sFOR COMPATABILITY WITH CCP MODE, USE BUFFER 
2738 011020 012737 010005 002526 MOV #10005,BUFCNT STARTING WITH SOH & ENDING WITH ETX 
3739 011026 043737 002330 002526 “ BIC MODMSK.. BUF CNT 
2741 011034 004737 031354 JSR PC,XIN :LOAD A TRANSMIT BUFFER IN 
2742 011040 546 65$: BR 11$ B= TRANSMIT BUFFER FAILED TO LOAD #=3 
2743 011042 005137 011402 COM 14$ [1ST OR 2ND BUFFER IN 
2744 011046 001372 BNE 6$ 
2745 yNOW TEST THAT THE BUFFERS QUEUED TO THE CURRENT LINE RETURN CORRECTLY 
2746 ‘THERE MUST BE 2 RECEIVE AND 2 TRANSMIT 
2747 011050 005037 011402 CLR 14$ sCOUNT TOTAL BUFFERS 
2748 011054 005037 011400 CLR 13$ [COUNT RECEIVE BUFFERS 
2749 011060 012737 000004 002452 9$: MOV #%, ERNUM 
$730 betas: Mita ERIE: Cer PC ,REQOUT TEST REQUEST OUT OF KMC SETS 
2752 011076 000527 BR 11$ ‘NO OUTPUT REQ. ERR #=4 
shee SEE NEEL ieee 002462 nov EURLIN SHBE zSHOW CURRENT LINE # 
Cc e 
2755 O11112 123777 002462 171146 CMPB = SHBE, @SEL3 [CORRECT LINE #? 
2756 011120 001116 BNE 11$ ‘B=NO ERROR #=5 
2757 011122 005237 002452 INC ERNUM 
3738 011126 012737 000001 002462 MOV #1, SHBE Pon STATUS SHOULD BE = 1. (END COUNT REACHED) 
2760 011134 132777 000004 171122 BITB #4,aSEL2 “CHECK FOR RECV 
2761 011142 0014 2 BEQ 91$ :SKIP IF 
2762 011144 00525 002462 INC SHBE SRECV 
2763 011150 123777 002462 171116 91$:  CMPB SHBE, @SEL6 : CORRECT STATUS? 
2764 011156 001077 BNE 11$ *B=N #=6 
$763 ee See Ce TPIND WHICH END NG ADDRESS SHOULD BE TESTED 
2767 011164 132777 000004 171072 B1TB 439s #4, @SEL 
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768 011172 001420 
769 011174 012737 

2770 011202 105737 
2771 011206 10013 
277 Oise 105737 
2773 011214 100415 
2774 011216 105737 
e775 011222 100012 
2776 Btise 062737 
2777 = 011232 pooees 
2778 011234 01273 

2779 011242 105737 
2780 011246 100003 
2781 011250 062737 
2782 011256 023777 
2783 011264 001034 
2784 011266 132777 
2785 011274 001002 
2786 011276 005237 
2787 011302 005237 
2788 011306 005077 
2789 011312 005237 
2790 011316 013737 
2791 011324 022737 
2792 011332 001252 
2793 011334 022737 
2794 011342 00100 

2795 011344 005237 
2796 011350 004737 
2797 011354 000405 
2798 011356 

2799 011356 004737 
2800 011362 104021 
2801 011364 00013 

2802 011370 

2803 011370 004737 
2804 011374 

2805 011374 000403 
2806 011376 000772 
2807 011400 000000 
2808 011402 000000 
2809 

2810 

2811 

2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 011404 000004 
2823 011406 012737 


17:05 

052665 
002311 
002316 
002314 
000004 
052265 
002311 
000005 
002462 
000004 
011400 


00245 
03174 


031470 
010674 
031650 


000022 


MACY11 eed 


002462 


002462 
002462 
002462 
171004 
170770 


002462 
011402 


011400 


002460 


6 5 
08:50 PAGE 5 


:B=TRANSMIT BUFFER 
SRECEIVE BUFFER 
:CHECK INTERNAL OR EXTERNAL 
sEXTERNAL, CHECK CRC-32 ENABLED? 
:YES, ADD 4 BYTES FOR APPENDED CRC 
; TRANSMIT BUFFER 
[CHECK MODE 
‘SKIP IF CCP 
:1F BOP, CONVERT WORD COUNT INiO BYTES 
Seno FADD RE $$? 
° burrer? 
Bok IT 
:1 TO THE REC. 
°1 TO THE TOTAL 
:SHOW COMMAND DONE 
: SHOW # OF REC. BUFFERS 
‘B=N TRY AGAIN 
TARE THERE 2 REC. + 2 XMIT? 
TREPORT ERR #=10 


TEST REQUEST OUT OF KMC SETS 
30K NO MORE OUTPUT REQUESTED #11=ADDITIONAL OUT REQ. 


:GET CONTENTS OF THE CSRS 
:LOOP a 1$ 

GET THE NEXT LINE NUMBER 
3zALL LINES TESTED 


21-0CT-81 8 
VALUE FOR SOFTWARE SWITCH REGISTER 
BEQ 15$ 
MOV #RBUF +5, SHBE 
TSTB MODE 
BPL 8$ 
TSTB = CLKDAT 
BMI 
TSTB = CRC32F 
BPL 1 
ADD #4, SHBE 
15$: MOV #TBUF +5, SHBE 
18$: TSTB MODE 
BPL 19$ 
16$: ADD #5, SHBE 
19$: CMP SHBE , @SEL4 
BNE 11$ 
BITB #4,aSEL2 
BNE 10$ 
INC 13$ 
10$: INC 14$ 
CLR aSEL2 
INC ERNUM 
MOV 13$, SHBE 
CMP 4,14$ 
BNE 9$ 
CMP #2,13$ 
BNE 11$ 
INC ERNUM 
JSR PC REQOUT 
BR 17$ 
11$:  ;REPORT ERROR 
JSR PC,GETCSR 
ERROR+ 21 
12$: JMP 1$ 
17$: 
JSR PC,GETLIN 
81$: 
BR TST22 
BR 12$ 
13$: 0 
14$: 0 


z# OF RECEIVE BUFFERS RETURNED 
34 OF TOTAL RECEIVED + COUNT FOR BUFFERS LOADED 


(eever”""" igo sgeltseg pte ae eee tere a er rete: 


Tals TEST pees THAT A cope ae teal MEMORY STATUS (-5) wi BE 


URNED 


WITH A RECEIVE BUF 


FER OUT. 


THE NON-EXISTAND MEMOR 
LOCATION IS 1/0 PAGE LOCATION 10 TO WHICH THE RECEIVE BUFFER IS 


fF FARRAR ARERAREREEEREEEEEREREREREAEEREREEEEREREREEEEREEEREAEERERREE 


sTEST 22 
PTTTTTITITITITITTLILILT LIL LELL LLL LLL LLL ite ttt 


18122: SCOPE 
MOV 





#22, TSTNUM 


zLOAD THE WD OF THIS TEST 


SEQ 0058 


5 
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CZKMEA.P11 20-OCT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0059 


030244 JSR PC SETLIN, :SETUP THE FIRST LINE 
011426 001110 V #18,$ :LOAD LOOP ADDRESS (LOOP ON ERROR) 
1 002452 1S: ERM 


Bes sGe C SHBE 
030664 PC, INTKMC Bip ee Oe KMC-11 FIRMWARE 

BR FIRMWARE FAILED TO INITIALIZE #=1 
031204 PC, INTLNE SINITIALIZE LINE (#_ IN CURLIN) 

BR sLINE FAILED TO INITIALIZE #=1 
031274 PC,STCLK :SET MAINT LOOP + START CLOCK 

BR $ MAINTENANCE COMMAND NOT ISSUED #=1 
O17 15 PC,SYNTIM ALLOW TIME FOR SYNC 


INC ER 
;LOAD THE RECEIVE BUFFER AT I/0 PAGE ADDRESS 10 
002526 Vv #10002 ,BUF CNT 
002526 
002524 sEA-BITS 
002522 MOV 10, BUF ADR 31/0 PAGE ADDR. 10 
LOAD A RECEIVE BUFFER IN 
zREC.BUFFER FAILED TO LOAD #=2 


ERNUM 
;LOAD THE (Oot our BUFFER 
002526 MOV #10004 ,BUF CNT 
002526 MODMSK :BUF C 
BUF EA 
002522 #TBUF ,BUF ADR 
031354 PC,.XIN LOAD A TRANSMIT BUFFER IN 
BR es : TRANSMIT BUFFER FAILED TO LOAD #=3 
002452 RNUM 
000204 002462 #204 , SHBE 
rTEST FOR AN OUTPUT RESPONSE 


031742 JSR PC ,REQOUT TEST REQUEST OUT OF KMC SETS 
002452 2s NO OUTPUT RESPONSE #=4 


ERNUM 
002462 170442 SHBE.aSEL2 
002452 
177773 002462 MOVB = #-5, SHBE 
002462 170430 cn SHBE, @SEL6 :18_RETURNED STATUS A NON-EXISTANT MEMORY? 
031650 PC_GETLIN GET THE NEXT LINE NUMBER 
BR TST2 T 


T3EXI 
: TEST NEXT LINE 


wine 
S 


mw 
os 
oo 


SENEEE 
Serer 


a aD a we ad nt 4 


COOSCOOOOCOOSCO 
SERRA RERRRRR 


N 8 
3 


SSeS s 
RVWN A 


bo beb Db othe Yee! pe? teed ob nae 
ROSRFSAF SKVEKS 


F233 
—— 
SNSLOONM 


:B=RETURN NOT A RECEIVE BUFFER #=5 


031470 * sR 


PC,GETCSR :GET CONTENTS OF THE CSRS 
“wel 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Sooo SCOOCOOCOSOCoOSoOSOO COOCOCoOoOoOSO COCOCOoOOoOoOOo 
223644 SSS SSC I SSS SCS OO 


RECS SERFCESE 


FERRARA AREEEEEEREREAEEREEREEEREERERAERAEREERERERERRERAERERREREEEEEE 


:TE 
3CCP MODE ONLY 
; THIS TEST WILL CHECK —_ THE 2 CHARACTERS ETX AND ETB 
ARE DETECTED AND PROPERLY RETURN THE BUFFER OUT COMMAND STATUS. 
{BOTH CHARA Ss , TESTED INDIVIDUALLY WITH EACH PREF IXED 
BY AN SOH THEN A STX 
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CZKMEAO DMS11-DA DYNAMIC MACY11 eke 21-OCT-81 08:50 PAGE 


60 
CZKMEA.P11 20-OCT-81 17:05 T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0060 

soot 3 FARRAR AAEEEEEEEEEEEEREREEREREAEEREEEEREEREREEREREEREEE 
2 
seas :TEST 23 
2884 "Sao" aac eaaear renee 
2885 011666 000 +$123: SCOPE 
2886 011670 012737 000023 002460 MOV #23, TSTNUM ;LOAD THE WD OF THIS TEST 
2887 011676 004737 050244 JSR PC, SETLIN ;SETUP THE FIRST LINE 
2888 011702 012737 011740 001110 MOV wis. SLPERR ‘LOAD LOOP ADDRESS (LOOP ON ERROR) 
2889 011710 105737 002311 TSTB :CCP MODE ONLY 
2890 011714 100002 BPL we 
2891 011716 000137 012230 JMP 2$ 
2892 011722 005037 001160 17$: CLR STMPO sSWITCH FOR CHARACTER SOH & STX 
2895 011726 005037 001162 CLR STMP1 sSWITCH FOR CHARACTER ETX & ETB 
2894 011732 012737 033002 012256 MOV #TERBUF , 4s ; 
2895 011740 012737 000005 002526 1$: MOV #5 BUF CNT 
2896 011746 005037 002524 CLR BUFEA 
2897 011752 012737 1 002452 MOV #1, ERNUM 
2898 011760 005037 002462 CLR SHBE 
2899 011764 004737 030664 JSR PC, INTKMC Fy 2 KMC-11 FIRMWARE 
2900 011770 000522 BR $ FIRMWARE FAILED TO INITIALIZE #=1 
2901 011772 004737 031204 JSR PC, INTLNE TINITIALIZE LINE (# IN CURLIN) 
2902 011776 000517 BR LINE aaa EL TO INITIALIZE #=1 
2903 012000 004737 031274 JSR PC,STCLK SET MAINT LOOP + START CLOCK 
2904 012004 000514 BR :MAINTENAN CE COMMAND NOT ISSUED #=1 
2905 012006 004737 031714 JSR PC, SYNTIM TALLOW TIME FOR SYNC 
2906 012012 005237 002452 INC RNUM 
2907 012016 012737 052660 002522 MOV #RBUF ,BUF ADR ;LOAD A RECEIVE BUFFER 

012024 004737 031344 JSR PC,RIN sLOAD A RECEIVE BUFFER IN 
2909 012030 000502 BR 3$ SRECEIVE BUFFER FAILED TO LOAD #=2 
2910 012032 005237 002452 INC ERNUM 
2911 012036 013737 012256 002522 MOV 4$,BUFADR ZCURRENT BUFFER ADDRESS 
2912 O12 005337 002526 DEC BUF CNT 
2913 012050 004737 031354 JSR PC,XIN :LOAD A TRANSMIT BUFFER IN 
2914 012054 900470 BR 3$ [TRANSMIT BUFFER FAILED TO LOAD #=3 
2915 012056 005237 002452 INC ERNUM 
2916 012062 004737 031714 JSR A WAIT A WHILE 
2917 012 004737 031742 JSR PC ,REQOUT sTEST REQUEST OUT OF KMC SETS 
2918 012072 600361 BR 35. ‘NO RESPONSE FROM THE ENDING CHARACTER #=4 
2919 012074 005237 002452 INC ERNUM 
2920 012100 012737 000204 002462 MOV #204, SHBE :1S COMMAND A BUFFER OUT? 
2921 012106 004737 031522 JSR PC ,RBONL ?SKIP XMIT 
2922 012112 123777 002462 170144 CMPB ss SHBE,, aseL2 
2923 012120 001046 BNE 3$ :B=NO COMMAND IS NOT A RECEIVE BUFFER OUT #=5 
2924 012122 005237 002452 INC ERNUM 
2925 012126 O12737 052664 002462 MOV #RBUF +4, SHBE — ;CORRECT ENDING MEMORY ADDRES? 
2926 012134 023777 002462 170126 CMP SHBE , @SEL4 
2927 012142 001035 BNE ‘B=NO ENDING MEMORY ADDRESS INCORRECT #=6 
2928 sFIND THE CORRECT RETURN STATUS VALUE 
2929 012144 005237 002452 INC ERNUM 
2930 012150 012737 900002 002462 MOV ae. SHBE ;LOAD ETX RETURN STATUS VALUE 
293 O1216¢ 132760 000020 000003 B17 #36, Re «RO? :WAS, CHAR. ETX OR ETB 
2934 012172 005237 00246 INC SHBE [MAKE RET. STATUS AN ETB (3) DETECTED 
2935 012176 123777 002462 170070 15$:  CMPB  SHBE.a@SELS [CORRECT TERMINATION STATUS 


oO 
= 
im 
Nm 


oCoooooo 
— tt 
horororfrororore 
SONS 
NSSRNERE 


SNORS 


012 
0 
0 
0 
0 
012 
0 
0 
0 
9 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 





s+ w DMS11=DA DYNAMIC 
CZ 20-OCT-81 17:05 


017737 


004737 
104023 
000137 
000000 


{8283838528 
-_—O— o— 
NMmuIrouUr Win 
NMNNONO— IN 
ben ahey 4 
NNNNN 


ssssss 


esases 


NIN 
CAUIUNUOs CAN NII SIU CN 


YNNNANN NINO NS NS 


Se 





033022 


031650 


011722 


000014 
031470 


011740 


000024 
0 


012542 
002462 


000001 
002524 
000010 
030664 
031204 
031274 
002452 


052660 
031344 


038036 


031354 






MACY11 eke E 61 
ALUE FOR SOFTWARE SWITCH REGISTER 


012256 
013586 


002464 


002460 
001110 


002452 


002526 


002522 


002522 








:B=NO #=7 
#4,4$ ‘MOVE TO NEXT VALUE 
#TERBUF+20,4$ DONE? 


:B=NO 
sGET NEXT LINE NUMBER 


RORS 
@4$,WAS ;SHOW COMBINATION FAILING 
GETCS :GET CONTENTS OF THE CSRS 


sADDRESS OF CURRENT TRANSMIT BUFFER 


ARS OTT ing ee nse agenesis emerge pkey art 


CCP MO ODE ONLY 
; THIS TEST CHECKS THAT AN LRC ERROR CONDITION CAN BE DETECTED 
RETURNS THE RECEIVE BUFFER WITH AN LRC CONDITION. 
370 GENERATE 3 LRC ERROR A SPECIALLY FORMATTED BUFFER IS OUTPUT 

AN ADDITIONAL CHARACTER FOLLOWING THE “ETX"' WHICH THE RECEIVER 
INTERPRETS AS THE LRC CHARACTER 


FFARR AEREERREREEREREREAEKERAEREREREREEEREEREREREREEERREREEK 


jinsenenienstenenteneennenesensasenennsnnennsnesnecnensesssnesnss 


OAD THE WD OF THIS TEST 
‘SETUP THE FIRST LINE 
:LOAD LOOP ADDRESS (LOOP ON ERROR) 
P MODE ONLY 


ane KMC-11 FIRMWARE 
FIRMWARE FAILED TO 5 A #=1 


AL LINE (# I LIN 

ZLINE FAILED TO INITIALIZE #=1 
;MAINTENANCE COMMAND NOT ISSUED #=1 
LOAD A_RECEIVE BUF 
sRECEIVE BUFFER FAI 
ERNUM 
#LRCBUF ,BUF ADR 
PC.XIN 


sLOAD A TRANSMIT » 
; TRANSMIT BUFFER F 


25 












3998 
2995 


2997 
2998 


3 


Seeseseecss 
fale lelolololololelololololo) 
2332933252353 555254 


Reece 
SWOONAUSWN—O 







CZKMEA.P11 


012422 
012426 
432 
12436 
012440 
12444 
12452 


So 
ps 
Nm 
Sale 
uw 
o 


VeyyVVYYYVEyYY 
RUNS ROSORORONGE 


MUMIA MAMA 


MVM 
aLoo 


SNR 


VMnuwn 
—=3O 


Sooooooooooo 
SS SS 


CZKMEAO DMS11=DA DYNAMIC 
20-0CT-81 17:05 


005237 
7? 


agesscgess 


=S=S8 o— 
MmUNow 


Soooo 


Sysyses 
SNS NONNNS 


NNONO— 


2452 
031714 
031742 
002452 
afte: 
03152 
00246 
002452 

666 


002462 
031650 


012314 


031470 
012314 


MACY11 


002462 
167600 


002460 
001110 


002452 
002526 


2$: 


3$: 


J FAA ARAAEEAREEEEREREREREEEREREREEKEKEEREEEEEEERREERERREREREEEREE 


K_ 5 
30A(1052)_ 21-OCT-81 08:50 PAGE 62 
GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0062 


INC ERNUM 

JSR PC,SYNTIM 
JSR PC -REQOUT 
BR 35m 

INC 

MOV #20h, SHBE 
JSR RBONLY 
CMPB SHE aSEL2 
BNE 

INC ERNUM 

MOV #RBUF +6, SHBE 
CMP SHEE. »@SEL4 
BNE $ 

INC ERNUM 

CLR SHBE 

MOVB #4, SHBE 
CMPB = SHBE, @SEL6 
BNE $ 

JSR PC,GETLIN 
BR TST25 

JMP 1$ 

;REPORT ERRORS 

JSR PC,GETCSR 
ERROR+ 24 

JMP 1$ 


3PARTST 


CCP MODE ONLY 
3 THIS TEST CHECKS THAT A PARITY ERROR CONDITION CAN BE DETECTED 
ID RETURNS THE RECEIVE BUFFER WITH A PARITY CONDI 








WAIT A_WHILE 
sTEST REQUEST OUT OF KMC SETS 
3NO RESPONSE FROM THE TRANSFER #=4 


BUFFER OUT COMMAND? 
SKIP XMIT 


3B=NO ERROR #=5 
Hy hn Be ADDRESS 
3B=N ERR #=6 






STATUS = 3-7 LRC ERROR 
“D0 NEXT LINE 
3: DONE 






GET CONTENTS OF THE CSRS 








:T0 GENERATE THE PARITY ERROR A SPECIALLY FORMATTED BUFFER BUFFER IS OUTPUT 
WITH AN EVEN PARITY DATA CHARACTER FOLLOWING THE CONTROL CHARACTERS 


FERRARA AAREEEAERERAEEEEEEERERKEERREREREREEROREREREREERROREREEEERE 


3 TEST 


25 


SS RERAAEAEEAAEEEARAAEEAAEREREREREREEEAKAAERRAERAEREEAEEEERAERREEREEERERRE 


$125: 


1$: 


NUM 
pe SETLIN 

wig SLPERR 
1$ 

2$ 


SHBE 

#1, ERNUM 
BUFEA 
#10, BUF CNT 
PC, INTKMC 


;LOAD THE WD OF THIS TEST 

SETUP THE FIRST LINE 
;LOAD LOOP ADDRESS (LOOP ON ERROR) 
:CCP MODE ONLY 


INITIALIZE KMC-11 FIRMWARE 


5 
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CZKMEA.P11 20-0CT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER 
aoe8 012646 BR 3$ sFIRMWARE FAILED TO INITIALIZE #=1 
9 012650 003737 031204 JSR PC, INTLNE i INITIALIZE LINE (# IN CURLIN) 
3050 012654 BR LINE FIALED TO INITIALIZE #=1 
51 012656 0047 59 031274 JSR PC,STCLK sSTART CLOCK 
S2 012662 000473 BR 3$ sMAINTENANCE COMMAND NOT ISSUED #=1 
3053 012664 p03637 002452 INC ERNUM 
3054 012670 012737 052660 002522 MOV #RBUF ,BUF ADR 
3055 012676 004737 031344 JSR PC,RIN ;LOAD A_ RECEIVE BUFFER IN 
3056 012702 000463 BR 3$ ‘RECEIVE BUFFER FAILED TO LOAD #=2 
3057 012704 005237 o0 es 3 INC ERNUM 
3058 012710 012737 033036 002522 MOV #PERBUF ,BUF ADR 
3059 gistis 004737 031354 JSR PC.XIN LOAD A TRANSMIT BUFFER IN 
3060 012722 000453 BR 3$ ; TRANSMIT BUFFER FIALED TO LOAD #=3 
3061 012724 005237 002452 INC ERNUM 
3062 012730 012737 000204 002462 MOV #204, SHBE sEXPECT BUFFER OUT COMMAND 
3063 0127 004737 031714 JSR PC,SYNTIM WAIT A WHILE 
3064 012742 004737 031742 JSR PC ,REQOUT :TEST REQUEST OUT OF KMC SETS 
3065 012746 000441 BR 3$ NO RESPONSE FROM THE TRANSFER #=4 
3066 012750 005237 002452 INC ERNUM 
3067 012754 004737 031522 JSR PC,,RBONLY 3SKIP_XMIT 
3068 012760 123777 002462 167276 CMPB SHBE ,@SEL2 21S IT _A BUFFER OUT COMMAND? 
3069 012766 001031 BNE 3$ 3B=NO ERROR #=5 
3070 012770 005237 002452 INC ERNUM 
3071 012774 012737 052665 002462 MOV #RBUF +3 , SHBE RETURN ADDRESS 
3072 0135002 023777 002462 167260 CMP SHBE ,@SEL4 : CORRECT? 
3073 013010 001020 BNE 3$ 3B=N ERR #=6 
3074 013012 005237 002452 INC ERNUM 
3075 013016 005037 002462 CLR SHBE 
3076 013022 112737 177775 002462 MOVB #-3, SHBE 
3077 013030 123777 002462 167236 CMPB SHBE , @SEL6 sSTATUS = PARITY ERROR 
3078 013036 001005 BNE :B=NO #=7 
3079 013040 004737 031650 JSR PC,GETLIN 3DO NEXT LINE 
3080 013044 2s: 
3081 013044 000407 BR TST26 3 DONE 
Ee 013046 000137 012616 JMP 1$ 
3084 zREPORT ERRORS 
3085 013052 3$: 
3086 013052 004737 031470 JSR PC.GETCSR GET CONTENTS OF THE CSRS 
3087 013056 104025 ERROR+ 25 
3088 013060 0001357 012616 JMP 
3089 
3091 
aks eae aL ee a ee ee re ee 
3 CHRCN 
3094 :THIS TEST CHECKS THAT THE CHARACTER COUNT WILL CORRECTLY COUNT 
3095 3TO THE HIGHEST VALUE OF CORE AVAILABLE (ABOVE THE DIAGNOSTIC) 
3096 :BY USING THE SAME BU RECEIVE AS TRANSM 
3097 sAND_ TESTING THAT THE ENDING MEMORY ADDRESS RETURNED 
3098 20F BOTH THE BUFFERS (XMIT AND RECEIVE) ARE THE SAME 
3100 OPI itiiiiiiiiitiiiiiiicy) 
102 sTEST 26 


3103 FFARR AAEAARAEREEAAEREAEEEEEEERAERAEEERAEEEARARAEEEERAAEAEAAEERERERERKEREE 


WA 


WAG 
— — — —_ ee ed ed ed od 


— —_ —>—> — od od ed 
NOPONINPONONONINDY 2 2 OS OS Oe 


WAWWNIWWIWNANWNNANAWNNAWAANINNWAINAAA AWN GIWNWAAAAAAAANNAAAA AANA AAAA AW 
ae at at ee et ae et Ee at et ee et et ete et et ee ee ee et et et et ee ee et et ee ee 


MMA MUIM VII ES BERR RRR SE PW 
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20-OCT-81 17:05 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0064 


3064 000004 TST26: SCOPE 


3066 012737 000026 002460 MOV #26, TSTNUM ZLOAD THE WD OF THIS TEST 

3074 004737 030244 JSR PC SETLIN SSETUP THE FIRST LINE 

3100 012737 013120 001110 MOV #i$,$LPERR “LOAD LOOP ADDRESS (LOOP ON ERROR) 

:CHECK THAT TEST CAN BE RUN (SUFFICIENT CORE) 

3106 005737 002534 TST CCTST :1S THERE CORE AVAILABLE? 

311 00157¢ BEQ 5 :B=NO 

3114 004737 030244 JSR PC,SETLIN 

3120 012737 000001 002452 1$: MOV #1. ERNUM 

3126 005037 002462 CLR SHBE 

3132 013701 002534 MOV CCTST,R1 ZFIND THE ADDRES THAT SHOULD BE RETURNED 

3136 105737 002311 TSTB MODE 

3142 100403 10$ 

3144 010137 013526 MOV R1,8$ 3IN CCP, LENGTH IS ACTUAL CHAR COUNT 

3150 000417 BR 5 

3152 020127 002000 10$: CMP R1,#2000 zIN BOP MODE, 

3156 101402 BLOS «i118 : MAX COUNT=2000 BYTES 

3160 012701 002000 MOV #2000,R1 

3164 010137 013526 11$: MOV R1,8$ : SAVE BUFFER SIZE 

3170 006237 013526 ASR 8$ : CHANGE TO WORD COUNT 

3174 042737 177000 013526 BIC #177000,8$ : MASK TO 9 BITS 

3202 062737 010000 013526 ADD #10000, 8$ : FIX BYTE COUNT 

3210 013702 002532 15$: MOV BADDR ,R2 SGET START OF TRANSMIT BUFFER 

3214 004737 032542 JSR PC ,MEMF IL TAND FILL WITH ALLOWED INCREMENTING PATTERN 

3220 063701 002532 ADD JRI ‘SET UP ENDING BUFFER ADDRESS 
013224 004737 030664 JSR PC, INTKMC S INITIALIZE KMC-11 FIRMWARE 

3230 000530 BR 6$ sFIRMWARE FAILED TO INITIALIZE #=1 
013232 004737 031204 JSR PC, INTLNE sINITIALIZE LINE (4 IN CURLIN) 
013236 000525 BR SLINE FAILED TO INITIALIZE #= 
013240 004737 031274 JSR PC,STCLK [SET MAINT LOOP + START CLOCK 
013244 000522 BR 6$ [MAINTENANCE COMMAND NOT ISSUED #=1 
013246 005237 002452 INC ERNUM 
013252 005037 002524 CLR BUFEA :NO EA BITS 

13256 013737 002532 002522 MOV BADDR,BUFADR § :BASE ADDRESS OF BUFFERS 

3264 013737 013526 002526 MOV 8$ BUF CNT ‘LOAD THE LENGTH 

3372 004737 031344 JSR PC,RIN [LOAD A RECEIVE BUFFER IN 

3276 000505 BR 6$ SRECEIVE BUFFER FAILED TO LOAD #=2 

3300 005237 002452 INC ERNUM 

3304 004737 031354 JSR PC,XIN :LOAD A TRANSMIT BUFFER IN 

3310 000500 BR : TRANSMIT BUFFER FAILED TO LOAD #=3 

sWATCHDOG THE COMPLETION OF THE TRANSFER 

3312 005237 2 INC ERNUM 

3316 005037 013524 CLR 7$ 

3322 005037 013530 CLR 20$ ZCLEAR RECEIVE BUFFER COUNT 

3326 005037 013532 CLR 21$ TCLEAR TOTAL BUFFER COUNT 

3332 005037 ve CLR SHBE 

3336 004737 031742 JSR PC ,REQOUT :TEST REQUEST OUT OF KMC SETS 

3342 000401 BR 3$ 

3344 000404 BR 4$ zA REQUEST OUT IS SET 

3346 005337 013524 3$: DEC zs SCOUNT DOWN THE LOOP 

3354 000456 BR 6$ -B=NO BUFFER RETURNED FROM TRANSFER #=4,.7 

3356 4$: >TEST THAT THE PROPER COMMAND IS RETURNED 

3356 005237 002452 N 

3362 122777 000200 166674 CMPB  =s« #200, @SEL2 : TRANSMIT BUFFER? 
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3160 013370 001001 BNE 12$ :B=N 

3161 013372 900406 BR 14$ 
316¢ 013374 122777 000204 166662 12$: CMPB #204,aSEL2 RECEIVE BUFFER? 

163 013402 901043 BNE $ ‘B=N COMMAND RETURNED WAS NOT BUFFER OUT #=5,10 
3164 013404 005 013530 INC 0$ *COUNT RECEIVE BUFFER 

3165 013410 005237 013532 14$: INC 1$ :COUNT ALL BUFFERS 

166 013414 005237 00245 INC ERNUM 
3167 013420 010137 002462 MOV R1,SHBE 

168 013424 020177 166640 CMP R1,aSEL4 : CORRECT RETURNED ADDRESS? 

169 013430 001030 BNE rs} *B=NO ERR #=6,11 (SHBE=ADDRESS) 

170 013432 105077 166626 CLRB = @SEL2 : COMMAND DONE 

3171 013436 005237 002452 INC ERNUM 
317 013442 005037 002462 CLR SHBE 

173 013446 025727 013532 000002 CMP 218,42 sHAVE TWO BUFFERS RETURNED? 

3174 013454 002730 BLT 2$ ‘B=N TO WAIT FOR NEXT 

3175 013456 013737 013530 002462 MOV 20$, SHBE 
3176 013464 022737 000001 013530 CMP #1,20$ ZONE OF TWO IS RECEIVE? 

3177 013472 001004 BNE 16 =N 1XMIT & 1REC NOT RETURNED #=12 
3178 013474 004737 031650 JSR PC,GETLIN “GET THE NEXT LINE NUMBER 

3179 013500 5$: 
3180 013500 000415 BR TST27 3 DONE 
3181 013502 000606 BR 1$ ‘DO NEXT LINE 
3183 013504 012737 000012 002452 168: MOV #12, ERNUM ZERROR # 12 
3185 013512 004737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 

3186 013516 104026 ERROR+ 26 
3187 013520 000137 013120 J 
3188 013524 000000 7$: 0 :WATCH LOOP COUNTER 

3189 013526 000000 8$: 0 
3190 013530 000000 20$: 0 :COUNT OF RECEIVE BUFFERS 

3191 013532 000000 21$: 0 [TOTAL BUFFER COUNT 
3193 
3194 FERRARA REEREREEREEREEEEEREEEREREREEEEERAEERREREREREREERREEEREREERE 
3195 :BSEADR 
3196 STHIS TEST WILL CHECK THE LOWER 13 (4K) BIT TRANSMIT AND RECEIVE 
3197 BUFFER ADDRESSING (BUFFER ADDRESS-IN AND OUT) BY TRANSMITTING 
3198 AND RECEI VING TWO WORD BUFFERS. THE ADDRESSES ARE SEQUENCED BY 
3199 [WALKING A ONE ACROSS THE RETURNED BUFFER ADDR ESS VAL 

3200 [THE RETURNED BUFFER ADDRESSES ARE TESTED FOR BEING CORRECT. 
$5op RRR AAARREERRRAAREEAERE AEA ETRAAAATARARRAAAERR RARER ETRE RES 
3203 :TEST 27 

3204 jttttenteeeeeceteeneeetentetententeneeennenententententeetentent 
3205 013534 000004 18127: | SCOPE 

3206 013536 012737 000027 002460 MOV #27, TSTNUM ZLOAD THE WD OF THIS TEST 

3207 013544 004737 030244 JSR PC. SETLIN :SETUP THE FIRST LINE 

3308 013550 012737 013762 001110 MOV #2$.$ SLPERR [LOAD LOO ADDRESS (LOOP ON ERROR) 
3209 013556 026737 020000 002534 CoP #2000 ,CCTST  :NEED Bk OVER DIAGNOSTIC TO RUN TEST 
Bi gies St ewes, dean gy USMS GLP IHRE 
213 013576 063701 002534 ADD CCTST.R1 

214 013602 010137 014410 MOV R1,5$ sHIGHEST ADDRESS 

3215 013606 012704 004 MOV #4 RG SINITIALIZE ADDRESS 
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002530 
002474 
002470 


002526 
002526 
002452 


02526 
02522 


002582 56s: 
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s INITIALIZE THE BASE ADDRESSES 
MOV BADDR ,R2 
ADD R4,R2. 
CMP Re 53 DONE? 
BLOS —- 108 ‘SKIP OVER IF NO 
JMP ag SOTHERWISE CONT. TO NEXT LINE 
MOV R2,XRET 
MOV R2,RRET 
TST = (R) 7-2 
TST =(R2) :-2 
TSTB = MODE 
BPL 6$ ZIN CCP THIS IS CHAR. COUNT 
TST =(R2) t=2 IN BOP THIS IS WORD COUNT 
TST =(R2) 2 
MOV R2,XOUT 
MOV R2.ROUT 
CLR RBUF $2 :BUFFER SIZE FLAG 
TS78 CLEDAT ‘IN TER NAL? 
BMI 65$ :B=Y 
TSTB = CRC32F TIF ERc32 IS ENABLED ADD 4 MORE CHARS. 
BPL ‘B=NOT ENABLED 
MOV #~1, RBUF SZ 'SET FLAG FOR REC.BUFF HANDLING 
ADD #6 ,RRET [UP REC BUFFER BY 4 CHARS. 
ADD #2.ROUT ADD 4 CHARS. FOR CRC32 
MOV #4,R1 SFILL BUFFER WITH ALLOWED 
SR PC AMEMF IL S INCREMENTING PATTERN 


MOV #10004,BUFCNT  ;SIZE OF BUFFERS 
BIC tole alla 


MOV #1 
CLR SHBE 

CLR WAS 

JSR PC, INTKMC i INITIALIZE KMC=11 FIRMWARE 

BR [FIRMWARE FAILED TO INITIALIZE #=1 
JSR PC, INTLNE SINITIALIZE LINE (# IN CURLIN) 

BR SLINE FAILED TO INITIALIZE a= 

JSR PC, STCLK [SET MAINT LOOP + START CLOCK 

BR 4$ [MAINTENANCE COMMAND NOT ISSUED #=1 
JSR PC,SYNTIM TALLOW TIME FOR SYNC DET. 

“QUEUE THE BUFFERS 

IN ERNUM 


TST RBUF SZ sBOP/W CRC32 
46$ 3B=NO 


BP 6 
ADD #2 ,BUF CNT 
MOV ROUT ,BUF ADR 


JSR PC.RIN 3LOAD A RECEIVE BUFFER IN 

BR 43 sRECEIVE BUFFER FAILED TO LOAD #2 
INC ERNUM 

TST RBUF SZ ;BOP/W CRC32? 

BPL 56$ 3;B=NO 


SUB #2,BUF CNT 

MOV XOUT ,BUF ADR 

JSR PC,XIN ;LOAD A TRANSMIT BUFFER IN 

BR 4$ S TRANSMIT BUFFER FAILED TO LOAD #=3 
INC ERNUM 


CLR 20$ :CLEAR RX BUFFER COUNT 
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z 914126 005037 014414 ae CLR 21$ :CLEAR TOTAL BUFFER COUNT 
7% Oiet39 004737 031742 JSR PC ,REQOUT :TEST REQUEST OUT OF KMC SETS 
75 0141 900517 BR 4$° ‘NO BUFFER RETURNED #=4,7 
76 014140 00 g 7 002452 INC ERNUM 
3277 014144 O12 7 000200 002462 MOV #200, SHBE ZEXPECT TRANSMIT BUFFER OUT 
3278 014152 123777 002462 166104 CMPB SHOE. a@SEL2 
3679 014160 001015 BNE Z1F NOT, CHECK IF RX BUFFER OUT 
80 014162 003237 002452 INC ERNUM 
3281 014166 O15 37 002472 902462 MOV XRET, SHBE 
3282 014174 01 730 166070 002464 MOV a@SEL4,WAS 
283 014202 023737 002462 002464 CMP SHBE , WAS 1S ADDRESS _RETURNED CORRECT? 
84 014210 001072 BNE 4$ :B=NO ERR #=6,11 
3285 014212 000425 BR 31$ + CONTINUE To COMMON CODE 
3287 014214 012737 000204 002462 30$: MOV #204, SHBE sEXPECT RECEIVE BUFFER OUT 
3288 01428 123777 002462 166034 CMPB = SHBE.. @SEL2 
3289 014230 001062 BNE 4$ zIF NEITHER RX NOR TX BUFFER, ERROR #=5,10 
3290 014232 005237 014412 INC 208 [COUNT RETURNED RX BUFFERS 
3291 014236 005237 002452 INC ERNUM 
3292 014242 013737 002474 002462 MOV RRET, SHBE 
3393 014250 017737 166014 002464 MOV @SEL4,WAS 
3394 014256 023737 002462 002464 CMP SHBE , WAS : CORRECT RETURNED ADDRESS? 
3295 014264 001044 BNE 4$ [B=NO ERR #=6,11 
3296 014266 005237 002452 31$: INC ERNUM 
3297 014272 005237 014414 INC 21$ :COUNT ALL BUFFERS 
3298 014276 005077 165762 CLR aSEL2 : DISMISS COMMAN 
3299 014302 023727 014414 000002 CMP 218,42 HAVE TWO COMMANDS BEEN RETURNED? 
3300 014310 002710 BLT 16$ <B=NO TO WAIT FOR NEXT 
3301 014312 012737 014412 002462 MOV #20$, SHBE ;SET RX BUFFER COUNT FOR OUTPUT 
3302 014320 023727 014412 000001 CMP 208,41 ARE RETURNED BUFFERS 1 TX AND 1 RX? 
3303 014326 001023 BNE 4$ :B=NO, #=12 
3304 014330 005237 002452 INC ERNUM 
3305 014334 005037 002462 CLR SHBE 
3306 014340 004737 031742 JSR PC ,REQOUT sTEST REQUEST OUT OF KMC SETS 
3307 014344 000401 BR 7$ [NO RESPONSE IS CORRECT 
3308 014346 000413 BR 4$ [EXTRA COMMAND IS ERROR, #=13 
3309 014350 006304 7$: ASL R4 STEST FOR NEXT WALKING VALUE 
3310 014352 022704 020000 CMP #20000,R4 :DONE? 
3311 014356 002402 BLT 3$ TIF YES,CONTINUE TO NEXT LINE 
331¢ 014360 000137 013612 - JMP 15$ ‘AT HERI Se REPEAT TEST with NEXT ADDRESS 
3314 014564 004737 031650 a JSR PC,GETLIN :GET THE NEXT LINE NUMBER 
331 014370 000412 BR TST30 :BR IF DONE OR TEST CAN NOT BE RUN 
3317 014372 000137 013572 JMP 14$ 760 NEXT LINE 
319 ;REPORT ERROR 
0 014376 004737 031470 4$: JSR BC »GETCSR 
014402 104027 ERROR+ 
014404 000137 013762 
014410 000000 5$: sHOLD THE HIGHEST ADDRESS THAT CAN BE TESTED 
014412 000000 20$: 0 “RX BUFFER COUNT 
014414 000000 21$: 0 ‘TOTAL BUFFER COUNT 


SL AAAARERAAAEEREEREREEEREEEREREEEEEERAEEEREREEERERERERERAEEREERERERRE 
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CZKMEA.P11 20-OCT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0068 
228 :DATADR 
333 STHIS TEST WILL CHECK 8 BUSS ADDRESSING OF THE HIGHER ORDER 
‘BITS (BITS 14-17) OF THE Quel) UED R RECEIVE BUFFER AND MULTIPLE DATA 
3 31 : TRANSFERS BY TRANSFERING A WORD BUFFER TO EACH 4K BOUNDAR 
3 3 CIN THE TEST RANGE) OUTPUT i} 
333 THE TEST WILL EXECUTE ONLY IF RTE ICTENT CORE EXIST. 
$330 sgunmtnalacnnsanbannsateuhanaanmnsanautiastenanaseauneonentenion 
3336 : TEST 
3337 {thtenneenennnneenententereenentennnnentententatnenenenerentnns 
3338 014416 000004 +$130: SCOPE 
339 014420 012737 000030 002460 MOV #30, TSTNUM AD THE WD OF THIS TEST 
340 014426 004737 030244 JSR PC,SETLIN OUP THE FIRST LINE 
3341 014432 012737 014464 001110 MOV #i§, SLPERR [LOAD LOOP ADDRESS (LOOP ON ERROR) 
3342 :CAN TEST BE RUN? 
3343 014440 005737 002534 TST 
3344 014444 001422 BEQ 2$ ;B=NO 
3345 014446 005037 002524 CLR BUFEA 
3346 014452 005037 002476 CLR CUREA 
3347 014456 013737 002532 002500 MOV BADDR , CURBUF 
3348 014 012737 000001 002452 1S: MOV #1, ERNUM 
3349 014472 005037 002464 CLR 
3350 014476 005037 002462 CLR SHBE 
3351 ;MAP TO THE CURRENT BUFFER UNDER TEST (ENABLE KT11 IF PRESENT) 
3352 014502 004737 032030 JSR PC ,MAPBFR ;MAP BUFFER FOR RECEIVE 
353 014506 000401 BR 2$ B= 
354 014510 000404 BR 17$ YES 
3355 014512 000137 015160 2s: JMP 77$ :SKIP TO NEXT TEST HELPER 
3356 014516 000137 015152 168: JMP 6$ ZERROR BRANCH HELPER 
3358 014522 004737 030664 JSR PC, INTKMC INITIALIZE KMC-11 FIRMWARE 
3359 014526 000773 BR 16$ ZFIRMWARE FAILED TO INITIALIZE #=1 
3360 014530 004737 031204 JSR PC, INTLNE ZINITIALIZE LINE (# IN CURLIN) 
3361 014534 000770 BR ZLINE FAILED TO INITIALIZE #=1 
3362 014536 004737 031274 JSR PC, STCLK 3SET MAINT LOOP + START CLOCK 
3363 014542 000765 BR 16$ [MAINTENANCE COMMAND NOT ISSUED #=1 
3364 014544 005237 002452 INC 
3365 014550 004737 032456 JSR PC INTREC sINITIALIZE THE REC. BUFFER 
3366 014554 o12737 010012 002526 MOV #10012,BUFCNT SET BUFFER LENGT 
3367 014562 043737 002330 002526 BIC MODMSK , BUF CNT 
3368 014570 004737 031344 JSR PC RIN ZLOAD A RECEIVE BUFFER IN 
3369 014574 000750 16§ SBUFFER FAILED LOAD (REC.) #=2 
3370 014576 0032 7 002452 INC ERNUM 
3371 014602 012737 32260 002522 MOV #TBUF ,BUF ADR 
3372 014610 005037 002524 CLR BUFEA 
3373 014614 012737 010010 002526 MOV #10010, BUF CNT :SET BUFFER LENGTH 
3374 014622 043737 902330 002526 BIC MODMSK , BUF CNT 
3375 014630 004737 031354 JSR ZLOAD A TRANSMIT BUFFER IN 
376 014634 000730 BR 16$ :BUFFER FAILED TO LOAD (TRANSMIT) #=3 
377 014636 005237 002452 INC ERNUM 
3378 sWATCHDOG THE TRANSFERS COMPLETION 
379 014642 005037 015162 CLR 308 sRECEIVE BUFFER COUNT 
380 01464 903037 015164 CLR 1$ ‘TOTAL BUFFER COUNT 
381 014652 012737 000004 002452 18$: MOV #4, ERNUM 
382 014660 012700 000002 MOV #2,R0 7SET UP WAIT LOOP 
3383 014664 3$: 
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CZKMEA.P11 20-OCT-81 17:05 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0069 
384 014664 004737 031742 JSR PC,REQOUT ZTEST REQUEST OUT OF KMC SETS 
5 0146 9 000401 BR 4$ 
386 01467 900405 BR 5$ 30K OUTPUT REQUESTED 
14674 4$: DEC RO 
388 014676 00137 BNE 3$ 
389 0147 900524 BR 6$ ZERR #=4 TRANSFER FAILED TO COMPLETE 
390 014702 005237 002452 5$: INC ERNUM 
3391 “TEST FOR RETURNED BUFFER 
339 014706 005037 002462 CLR SHBE ;RETURNED EA BITS SHOULD BE=0 
393 014712 122777 000200 165344 CMPB =: #200, @SEL2 :CHECK FOR TRANSMIT BUFFER 
3394 014720 001015 BNE 10$ 
395 014728 O1g737 6 002452 MOV #6, ERNUM :SET UP TRANSMIT BUFFER ERROR #°S 
396 014730 012737 052270 002514 MOV #TBUF+10,RETBUF :RETURNED BUFFER ADDRESS SHOULD BE 
3397 014736 105737 002311 TSTB MODE SCHECK MODE 
3398 014742 100003 BPL as [SKIP IF CCP 
3399 014744 062737 000010 002514 ADD #10,RETBUF ‘IN BOP,CONVERT WCRD COUNT TO BYTES 
3400 014752 8$: 
3401 014752 000417 BR 12$ 
3402 014754 122777 000204 165302 10$:  CMPB #204,aSEL2 :CHECK FOR RECEIVE BUFFER 
3403 014762 001073 BNE £4 ‘B=N COMMAND NOT TX OR RX BUFFER OUT #=5 
3404 014764 005237 015162 INC 20$ [COUNT RECEIVE BUFFER 
3405 014770 012737 000010 002452 MOV #10, ERNUM 7SET UP RECEIVE BUFFER ERROR #'S 
3406 014776 013737 002510 002462 MOV RETEA, SHBE [CURRENTLY MAPPED BUFFER EA-BITS 
3407 015004 013737 002512 002514 MOV RETADR, RE TBUF 
3408 015012 005237 015164 12$: INC 21$ :COUNT ALL BUFFERS 
3409 015016 017737 165252 002464 MOV @SEL6, WAS [GET EA BITS 
3410 015024 042737 037777 002464 BIC #37777 ,WAS SSAVE ONLY THE EA-BITS 
3411 015032 023737 002462 002464 CMP SHBE , WAS TARE EA BITS CORRECT? 
3412 015040 001044 BNE 6$ *B=NO ERR #=6,10 
3413 015042 005237 002452 INC ERNUM [TEST LOWER 16 BIT ADDRESS 
3414 015046 017737 165216 002454 MOV @SEL4,WAS :16 BIT ADDRESS 
3415 015054 013737 002514 002462 MOV RE TBUF , SHBE 
3416 015062 023737 002462 002464 CMP SHBE ,WAS 216 BIT RECEIVE BUFFER ADDRESS CORRECT? 
3417 015070 001030 BNE rs [NO ERR #=7,11 
3418 015072 005237 002452 INC ERNUM 
3419 015076 105077 165162 CLRB = a@SEL2 :DISMISS COMMAND 
3420 015102 023727 015164 000002 CMP 21$,h2 [TWO COMMANDS BACK YET 
3421 015110 002660 BLT 18$ ‘B=NO WAIT FOR ANOTHER 
3422 015112 013737 015162 002462 MOV 20$, SHBE [STORE # OF RECEIVE BUFFERS 
3423 015120 023727 015162 000001 CMP 208,41 :1 RECEIVE BUFFER? 
3424 015126 001011 BNE oF ‘B=NO TWO BUFFERS NOT 1 TX & 1 RX #=12 
3425 :GO + DO NEXT BUFFER 
3426 015130 909241 cLc 
3407 015132 062737 020000 002500 ADD #20000, CURBUF 74K TO NEXT BUFFER 
28 015140 10300 BCC 55$ OVERFLOW? 
3429 015142 005237 002476 INC CUREA ‘YES +1 TO EA BITS 
3430 015146 000137 014464 55$:  JMP 1$ ‘RUN IT 
3432 ;REPORT ERROR 
3433 015152 6S: 
3434 015152 104030 ERROR+ 30 
35 015154 000137 014464 JMP i$ 
338 015160 77$: 
3438 015160 000402 BR TST31 ::G0 TO NEXT TEST 
3439 015162 000000 208: 0 :RECEIVE BUFFER COUNT 
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3440 015164 000000 21$: 0 : TOTAL BUFFER COUNT 
344 FF ARAREREEERARERAEREREEREEREEERERERERERRAERERERRERRERRREEERERREEEE 
344 :DATADR 
3444 :THIS TEST WILL CHECK BUSS ADDRESSING OF THE HIGHER ORDER BITS 
3445 :(BITS 14-17) OF THE QUEUED TRANSMIT BUFFER AND MULTIPLE DATA 
3446 [TRANSFERS BY TRANSFERRING A 10 WORD BUFFER FROM EACH 4K BOUNDARY 
47 ‘CIN THE TEST RANGE) INPUT IS TO 
3448 :* THE TEST WILL EXECUTE ONLY IF SUFFICIENT CORE EXIST. 
3449 PPTITITITITITITITITIT TIL TII TIT Titi Titi iii TLL ite TTL 
3450 
3454 :TEST 31 
3452 ee ee ae 
3453 015166 000004 T8131: SCOPE 
3454 015170 012737 000031 002460 MOV #31, TSTNUM ZLOAD *HE WD OF THIS TEST 
3455 015176 004737 030244 JSR PC, SETLIN ‘SETUP THE FIRST LI 
3456 015202 012737 015234 001110 MOV #1$,$LPERR ‘LOAD LOOP ADDRESS (LOOP ON ERROR) 
3457 -CAN TEST BE RUN? 
3458 015210 005737 002534 T CCTST 
3459 015214 001422 BEQ 2$ :B=NO 
3460 015216 005037 002524 CLR BUFEA 
3461 015222 005037 002476 CLR CUREA 
3462 015226 013737 002532 002500 MOV BADDR , CURBUF 
3463 015234 012737 000001 002452 1$: MOV #1, ERNUM 
3464 015242 005037 002464 CLR 
3465 015246 005037 002462 CLR SHBE 
3466 ;MAP TO THE CURRENT BUFFER UNDER TEST (ENABLE KT11 IF PRESENT) 
3467 015252 004737 032036 JSR PC ,MAPBUF ;MAP BUFFER FOR TRANSMIT 
3468 015256 000401 BR 2$ *B=NO 
3469 015260 000404 BR 17$ YES 
3470 015262 000137 015776 2$: JMP 77$ ‘SKIP TO NEXT TEST HELPER 
3471 015266 000137 015770 168: JMP 6$ TERROR BRANCH HELPER 
3473 015272 004737 030664 JSR PC, INTKMC INITIALIZE KMC-11 FIRMWARE 
3474 015276 000773 BR 1 FIRMWARE FAILED TO INITIALIZE #=1 
3475 015300 004737 031204 JSR PC, INTLNE SINITIALIZE LINE (# IN CURLIN) 
3476 015304 000770 BR 16$ SLINE FAILED TO INITIALIZE #=1 
3477 015306 004737 031274 JSR PC, STCLK [SET MAINT LOOP + START CLOCK 
3478 015312 000765 BR 16$ :MAINTENANCE COMMAND NOT ISSUED #=1 
3479 015314 005237 00245 INC RNUM 
3480 015320 004737 03251 JSR PC, INTTRM ZINITIALIZE THE TRANSMIT BUFFER 
3481 015324 012737 010012 002526 MOV #10012,BUFCNT :SET BUFFER LENGTH 
3482 015332 043737 002330 002526 BIC MODMSK , BUF CNT 
3483 015340 913700 002522 MOV BUFADR.RO ;LOAD THE RECEIVE BUFFER FIRST 
3484 015344 013701 002524 MOV BUFEA,R1 
3485 015350 o12737 052660 002522 MOV #RBUF BUF ADR 
3486 015356 00 037 002524 CLR BUFEA 
3487 015362 004737 031344 JSR PC RIN ZLOAD A RECEIVE BUFFER IN 
3488 015366 000737 BR 16$ SRECEIVE BUFFER FAILED TO LOAD ERR #=2 
3489 015370 909287 002452 INC ERNUM 
3490 015374 010137 002524 MOV R1,BUFEA :RESTORE EA-BITS 
3491 015400 9100 7 00 328 MOV RO. BUFADR 
92 015404 Ole 7 010010 002526 MOV #10010,BUFCNT ;:SET BUFFER LENGTH 
93 015412 043737 002 30 002526 BIC MODMSK , BUF CNT 
94 015420 004737 031354 JSR PC,XIN :LOAD A TRANSMIT BUFFER IN 
95 015424 000561 BR 6$ S TRANSMIT BUFFER FAILED TO LOAD #=3 
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96 015426 005237 002452 INC ERNUM 
97 sWATCHDOG THE TRANSFERS COMPLETION 
98 015432 005037 016000 CLR 208 SRECEIVE BUFFER COUNT 
99 015436 005037 016002 CLR 1$ ‘TOTAL BUFFER COUNT 
500 015442 012737 000004 002452 18$: MOV #4, ERNUM 
3501 913490 012700 000002 = MOV #2,R0 :SET UP WAIT LOOP 
503 015454 004737 031742 JSR PC,REQOUT :TEST REQUEST OUT OF KMC SETS 
504 015460 000401 BR 4$ 
3505 015462 000403 BR 5g :0K OUTPUT REQUESTED 
3506 015464 005300 4$: DEC RO 
3507 015466 00137 BNE 3$ 
3508 015470 00053 és ZERR #=4 TRANSFER FAILED TO COMPLETE 
3509 015472 005237 002452 5$: INC ERNUM 
3510 sTEST FOR RETURNED BUFFER 
3511 015476 005037 002462 CLR SHBE ;RETURNED EA BITS SHOULD BE=0 
3512 015502 122777 000200 164554 CMPB = #200, @SEL2 :CHECK FOR TRANSMIT BUFFER 
3513 015510 001012 BNE 10$ 
3514 015512 012737 000006 002452 MOV #6, ERNUM :SET UP TRANSMIT BUFFER ERROR #'S 
3515 015520 013737 002510 002462 MOV RETEA, SHBE [CURRENTLY MAPPED BUFFER 
3516 015526 013737 002512 002514 MOV RETADR, RE TBUF 
3517 015534 000435 BR 
3518 015536 122777 000204 164520 10$: § CMPB #204,aSEL2 ZCHECK FOR RECEIVE BUFFER 
3519 015544 001111 BNE x3 :B=N COMMAND NOT TX OR RX BUFFER OUT #=5 
3520 015546 005237 016000 INC 20$ [COUNT RECEIVE BUFFER 
3521 015552 012737 010 002452 MOV #10, ERNUM [SET UP RECEIVE BUFFER ERROR #'S 
3522 015560 005037 002462 CLR 
3523 015564 012737 052670 002514 MOV #RBUF+10,RETBUF ;RETURNED RECEIVE BUFFER SHOULD BE 
3524 015572 105737 002311 TSTB MODE :CHECK MODE 
3525 015576 100014 BPL 9$ ‘SKIP IF CCP 
3526 015600 062737 000010 002514 ADD #10,RETBUF TIN BOP, CONVERT WORD COUNT TO BYTES 
3527 015606 105737 002316 TSTB CLKDAT sCHECK INTERNAL OR EXTERNAL 
3528 015612 100406 BMI 
3529 015614 105737 002314 TST8 = CRC32F ZONLY IF EXT.,CHECK IF CRC32 USED 
3530 015620 100003 BPL 
3531 015622 062737 000004 002514 a ADD #4, RETBUF z1F CRC32, ADD BYTES FOR APPENDED CRC 
3533 015630 005237 016002 12$: INC 21$ :COUNT ALL BUFFERS 
3534 015634 017737 164434 002464 MOV @SEL6, WAS [GET EA BIT 
3535 015642 042737 037777 002464 BIC #37777 ,WAS *SAVE ONLY THE EA-BITS 
3536 015650 023737 002462 002464 CMP HBE ,WAS SARE EA BITS CORRECT? 
3537 015656 001044 BNE 6$ ‘B=NO ERR #=6,10 
3538 015660 003257 002452 INC ERNUM [TEST LOWER 16 BIT ADDRESS 
3539 015664 017737 164400 002464 MOV @SEL4,WAS :16 BIT ADDRESS 
3540 015672 013737 002514 002462 MOV RE TBUF , SHBE 
3541 015700 023737 002462 002464 CMP SHBE , WAS 216 BIT RECEIVE BUFFER ADDRESS CORRECT? 
3542 015706 001030 BNE 6$ *NO ERR #=7,11 
3543 015710 005237 002452 INC ERNUM 
3544 015714 105077 164344 CLRB = aSEL2 :DISMISS COMMAND 
3545 015720 023727 016002 000002 CMP 218,42 STWO COMMANDS BACK YET 
3546 015726 002645 BLT 18$ *B=NO WAIT FOR ANOTHER 
3547 015730 013737 016000 002462 MOV 0$. SHBE ‘STORE # OF RECEIVE BUFFERS 
3548 015736 023727 016000 000001 CMF 0S. m1 1 RECEIVE BUFFER? 
549 015744 001011 NE 6 [B=NO TWO BUFFERS NOT 1 TX & 1 RX #=12 
3550 7GO + DO NEXT BUFFER 
3551 015746 000241 cLc 





am 
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11. 20-OCT-81 17:¢5 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0072 
015750 062737 020000 002500 ADD #20000, CURBUF :4K_ TO NEXT BUFFER 
015756 103 BCC 55$ VERFLOW? 
015760 005237 002476 INC CUREA YES Aj TO EA BITS 
015764 000137 015234 55$:  JMP 1$ RUN IT 
:REPORT ERROR 
015770 6$: 
015770 104031 ERROR+ 31 
015772 000137 015234 JMP i$ 
015776 77$: 
015776 000402 BR TST32 GO TO NEXT TEST 
016000 000000 208: 0 :RECEIVE “BUFFER COUNT 
016002 000000 21$: 0 : TOTAL BUFFER COUNT 
eimiscaigng""  appeten nn ara tte aici at icine tan a cata ihe 
ATTST 
OnIs TEST WILL CHECK MULTIPLE DATA TRANSFERS AND BUS ADDRESSING 
zBY TRANSFERRING BUFFERS TO EACH INCREMENTAL 4K ABOVE THE DIAGNOSTIC 
ZIN CCP MODE, THE FIRST 4K BLOCK (16-20K) IS WRITTEN WITH 
+ INCREMENTAL PATTERN (40-175) AND TRANSFERRED TO EACH 4k ABOVE 
‘THE DIAGNOSTIC (20K UP) 
ZIN GOP MODE. THE FIRST 1024 BYTES OF THE FIRST 4K BLOCK. (16K) ARE 
[WRITTEN WITH AN INCREMENTAL PATTERN 0-377) AND TRANSFERR 
:TO THE START OF EACH 4K ABOVE THE DIAGNOSTIC (20K UP) 
[TEST WILL RUN ONLY IF 20K OR MORE OF CONTIGUOUS CORE (0 UP) EXISTS ON SYSTEM 
:TEST 32 
bi z  ERERRRERREERERERERERREREERERRERERRRERREREEEREREEE AREER EERE 
016004 000004 TST32: SCOPE 
016006 012737 000032 002460 MOV #32, TSTNUM ZLOAD THE WD OF THIS TEST 
016014 004737 030244 JSR PC, SETLIN ‘SETUP THE FIRST LINE 
016020 012737 016036 001110 MOV rest SeSLPERR [LOAD LOOP ADDRESS (LOOP ON ERROR) 
016026 022737 000020 002534 CMP #20,CCTST AT LEAST 4K OVER DIAG. 
016034 003041 BGT 11$ *B=N, SKIP TO NEXT TEST 
s INITIALIZE THE RECEIVED BUFFER =POINTER ADDRESS 
016036 013737 002532 002500 1$: MOV BADDR,CURBUF § ;START @ BASE ADDR. 
016044 062737 020000 002500 ADD #20000, CURBUF § :UP 
016052 005037 002476 CLR CUREA :NO EA BITS 
016056 013702 00253 MOV BADDR ‘FILL TRANSMIT BUFFER WITH INCREMENTAL PATTERN 
016062 012701 01777 MOV yaa is 
016066 004737 032542 JSR MERE I IL 
016072 012737 000001 002452 MOV aie 
016100 005037 002464 2$: CLR a 
016104 005037 002462 CLR SHBE 
016110 004737 030664 JSR PC, INTKMC ZINITIALIZE KMC-11 FIRMWARE 
016114 900407 BR tF.W. NOT INITIALIZED #= 
016116 004737 031204 JSR PC, INTLNE ‘INITIALIZE LINE (# IN CURLIN) 
016122 000404 BR 10$ [LINE FAILED TO INITIALIZE #=1 
016124 004737 031274 JSR PC, STCLK [SET MAINT LOOP + START CLOCK 
016130 000401 BR 10$ SMAINTENANCE COMMAND FAILED #=1 
016132 000406 BR 20$ 
016134 000137 017144 10$:  JMP 4 :BRANCH ERROR HELPER 
016140 000137 017126 11$: JMP 12$ ‘SKIP TO NEXT TEST HELPER 


| 
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CZKMEA.P11 20-OCT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0073 

3608 016144 000137 or712 7$: JMP 26$ :G0 TO NEXT LINE HELPER 

016150 005237 00245 0$: INC ERNUM 
3610 016154 005037 00246 CLR SHBE 
3611 016160 005037 002464 WAS 
ele THE RECEIVE BUFFER AND ENABLE KT11 (IF PRESENT) 
361 i THE ADDRESS POINTED TO BY ‘‘CURBUF’’ AND "‘CUREA'’ 
3614 TIF THE RECEIVE BUFFER REQUEST EXCEEDS CORE LIMITS RETURN IS TO PC 
3615 016164 004737 032036 JSR PC MAPBUF zmAP THE RECEIVE BUFFER 
3616 016170 000765 BR 278 ONTINUE TO NEXT LINE 
3617 016172 013737 002524 017142 MOV BUFEA, 3 ‘Sav VE HIGH ORDE ER BITS FOR LATER USE 
3618 016200 012737 017777 002526 MOV #1777? SSS FCNT LENGTH OF RECEIVE BUFFER 
3619 016206 004737 031344 JSR PC,RIN [LOAD A RECEIVE BUFFER IN 
3620 016212 000750 BR 1 *B=BUFFER FAILED TO LOAD #=2 
3621 sLOAD THE TRANSMIT BUFFER 
3622 016214 005237 002452 INC ERNUM 
3623 016220 005037 002524 CLR BUFEA 
3624 016224 013737 002532 002522 MOV BADDR BUF ADR ; TRANSMIT BUFFER ADDRESS 
3625 016232 004737 031354 JSR PC,XIN TRANSMIT BUFFER IN 
3626 016236 000736 BR 10$ < BOXBUFF FAILED TO LOAD #=3 
3627 016240 005237 002452 INC ERNUM 
3628 sWATCH DOG THE I/0 COMPLETION 
3629 016244 005037 017136 CLR 30$ TCLEAR RECEIVE BUFFER COUNT 
3630 016250 005037 017140 CLR 31$ [CLEAR TOTAL BUFFER COUNT 
3631 016254 012737 017777 (017134 228: MOV #17777,7$ ‘SPIN LOOP 
3633 016262 004737 031742 JSR PC,REQOUT :TEST REQUEST OUT OF KMC SETS 
3634 016266 000401 BR 4$ 
3635 016270 000404 BR 5$ :B=OUTPUT RESPONSE 
3636 016272 005337 017134 4$: DEC 7$ 
3637 016276 001371 BNE 3$ :TRY AGAIN 
3638 016300 000477 BR 13$ [NO OUTPUT RESPONSE FROM FIRMWARE ERR #=4,11,17 
3639 016302 005237 002452 5$: INC ERNUM [TEST THAT RESPONSE IS A RETURNED XMIT BUFFER 
3640 016306 005037 002462 CLR SHBE 
3641 016312 117737 163746 002464 MOVB  aSEL2,WAS 
3642 016320 122737 000200 002464 CMPB =: #200, WAS :1S COMMAND A TRANSMIT BUFFER? 
3643 016326 001 BNE 23$ :B=NO 
3644 016330 012737 000006 002452 MOV #6, ERNUM TINIT. ERROR COUNT FOR TX BUFFER 
3645 016336 117737 163732 002464 MOVB  a@SEL6,WAS 
3646 016344 112737 000001 002462 MOVB «#1, SHBE 
3647 016352 023737 002462 64 CMP SHBE , WAS 1S BUFFER STATUS = 1 (END COUNT REACHED)? 
3648 016360 001047 BNE 13$ TB=N ERR #=6 
3649 016362 005237 002452 INC ERNUM 
3650 016366 017737 163676 002464 MOV @SEL4,W :1S THE 16 BIT XMIT ADDRESS CORRECT? 
3651 016374 012737 017777 002462 V ara SHBE [SET UP 16-BIT TRANSMIT ADDRESS FOR CCP 
3652 016402 105737 0023 TSTB MODE 
3653 016406 100003 BPL 33$ :SKIP IF CCP 
3654 016410 01273 001776 002462 MOV #1776, SHBE ‘SET UP 16-BIT TRANSMIT ADDRESS FOR BOP 
3655 016416 063737 002532 002462 33$: ADD BADDR. SHBE 
3656 016424 023737 002462 002464 CMP SHBE , WAS 
3657 016432 022 BNE 13$ :B=N ERR #=7 
3658 016434 005 002452 INC ERNUM 
3659 016440 017737 163630 002464 MOV @SEL6,WAS yARE THE EA BITS CORRECT? 
3660 016446 013737 002464 00246 MOV 
3661 016454 042737 140000 00246 BIC #140000, SHBE § ; (THEY SHOULD BE CLEAR) 
3662 016462 023737 002462 002464 CMP SHBE , WAS 
3663 016470 001003 BNE 133 :B=N ERR #=10 
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CZKMEA.P11 20-OCT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0074 
3664 016472 005237 002452 INC RNUM 
3665 016476 0005 ! BR 5$ 
016500 0001 017144 13$: JMP 8$ sERROR BRANCH HELPER 

3667 016504 122737 000204 002464 23S: CMPB 1 aoe 31S COMMAND RECEIVE BUFFER 
3668 016512 0013 $ BNE 13$ :B=OUTPUT NOT A RECEIVE BUFFER "455, 12,20 
3669 016514 012737 000013 002452 MOV #13, ERNUM INIT. ERROR COUNT FOR RECEIVE BUFFER 
3670 pieags 012737 000002 002462 MOV #2, SHBE 31S RETURNED STATUS AN END OF MESSAGE 
3671 0165 90208! 002464 CLR WAS 
3672 016534 105737 002314 TSTB CRC32F sRUNNING CRC-32? 
3673 016540 100003 BPL 14$ :B= 
3674 016542 012737 000001 002462 MOV #1, SHBE sSET REC. BUFFER STATUS TO ENDING MEM.AR. 
3675 016550 117737 163520 002464 148: MOVB @SEL6,WAS 
3676 016556 123737 002462 002464 CMPB SHBE , WAS 
3677 016564 001167 BNE 8$ sB=NO #=13 
3678 016566 005237 00245 INC ERNUM 
3679 016572 012737 017777 002462 MOV #17777, SHBE SET CCP ENDING BUFFER ADDRESS 
3680 016600 105737 002311 TSTB MODE 
3681 016604 100003 BPL 24$ 
3682 016606 EEL 001776 002462 MOV #1776, SHBE SET BOP ENDING BUFFER ADDRESS 
3683 016614 063737 002500 002462 24S: ADD CURBUF , SHBE 
3684 016622 017737 163442 002464 MOV @SEL4 ,WAS 
3685 016630 023737 002462 002464 CMP SHBE , WAS 
3686 016636 001142 BNE 8$ sB=N #=14 
3687 016640 005237 2452 INC 
3688 016644 013737 017142 002462 MOV $, SHBE zARE THE RETURNED REC.BUF EA BITS CORRECT? 
3689 016652 017737 163416 002464 @SEL6,WAS 
3690 016660 042737 037777 002464 BIC #37777 WAS 
3691 016666 023737 002462 002464 CMP E WAS 
3692 016674 001123 BNE 8$ sB=N #=15 

3693 016676 005237 002452 INC ERNUM 

zTEST THE DATA RETURNED IN THE wists BUFFER 
3695 016702 013701 002532 MOV BADDR ,R1 SET TO START OF TX BUFFER 
016706 013702 002502 MOV MAPADR ,R2 SET TO START OF RX BUFFER 

3697 016712 005037 002464 CLR WAS 
3698 016716 005037 002462 CLR SHBE 
3699 016722 105737 002311 TSTB MODE 
3700 016726 100015 L 25$ 
3701 :FOR BOP MODE 

3702 016730 012700 001775 MOV #1775 ,RO : SET BOP C CTER_ COUNT 

3703 016734 112137 002462 40S: MOVB (R1)+, SHBE : GET PROPER C CTER 

3704 016740 \ieeee 002464 MOVB (R2)+,WAS : GET RECEIVE 

3705 016744 123737 002462 002464 CMPB SHBE , WAS : AGREE? 
37 016752 001074 BNE 8$ : BRANCH ON NO TO ERROR #=16 

3707 016754 005300 DEC RO : ARE WE DONE? 
37 016756 001 40$ : ON NO GO DO NEXT CHAR 

Tae 016760 00042 BR 43$ :FOR CCP ee teat DONE CONTINUE WITH COMMON CODE 
3711 016762 012700 017777 258: MOV #17777 ,RO s SET Al CHARACTER COUNT 

3712 016766 112137 002462 MOVB (R1)+, SHBE : GET STAR 

siz Hf 443 ened 000200 002462 ait oa90. SHBE : STRIP OFF PARITY BIT 
3715 017002 Nats? 002462 42$ MOVB trie, SHBE : GET PROPER CHARACTER 

3716 017 112237 002464 41$: MOVB (R2)+, WAS : GET RECEIVED CHARACTER 

3717 017012 pie 0002 002464 BIC #200, UAs : STRIP OFF ADDED PARITY BIT 

718 017020 123737 002462 002464 CMPB SHBE , WAS : AGREE? 

719 017026 001046 BNE $ : ON NO, BRANCH TO ERROR #=16 
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CZKMEA.P11 20-OCT-81 17:05 GET VALUE FOR SOFTWARE SWITCH REGISTER 

3720 017030 0053 DEC RO ; ARE WE DONE? 

3721 017032 00136 BNE 42$ ; ON NO, GO DO - T CHAR 

18 ; FALL THROUGH TO COMMON CODE 

$57 017034 005237 017136 43$: INC 30$ ZCOUNT RECEIVE BUFFERS 
3725 ;CHECK IF BOTH BUFFERS BACK YET 

3726 017040 005237 017140 35$: INC 31$ ;COUNT ALL BUFFERS 

3727 017044 105077 163214 CLRB aSEL2 DISMISS COMMAND 

3728 017050 023727 017140 000002 CMP 31$,42 TWO COMMANDS BACK YET? 

3729 017056 dee 4 BEQ 36$ ;B=YE 

3730 017060 000137 016254 JMP 22$ WAIT FOR ANOTHER BUFFER 

3731 017064 012737 see H 002452 368: MOV #21, ERNUM 
3732 017072 023727 017136 000001 CMP 308,41 ‘is ONE OF THE  ~ BUFFERS A RX BUFFER? 
3733 017100 001021 BNE 8$ =NO TO ERROR, #=21 

3734 sMOVE TO NEXT BUFFER 

3735 017102 062737 020000 002500 ADD #20000, CURBUF 

3736 017110 103002 BCC 6$ 
3737 017112 005237 002476 INC CUREA 
3738 017116 000137 016100 6$: JMP 2s sTRY NEXT BUFFER 

3739 017122 26S: 
3740 017122 004737 031650 JSR PC,GETLIN ;GET THE NEXT LINE NUMBER 

3741 017126 128: 
3742 017126 000413 BR TST33 ;;B=TEST DONE OR BYPASSED 

sez 017130 000137 016036 JMP 1$ sRETURN FOR NEXT LINE 

3745 017134 000000 7$: 0 3COUNT LOCATION 

3746 017136 000000 30$: 0 SCOUNT OF RECEIVE pores 

3747 017140 000 31$: 0 ; TOTAL BUFFER C 

oy 017142 000000 32$: 0 SHIGH-ORDER BITS SAVE LOCATION 

3750 0617144 8$: 
3751 017144 737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 

3752 017150 104032 ERROR+ 32 
Hey, 017152 137 016036 
teh vtlgionaae -~ 7°" ipaammamceeas ca ina arial at tearing: 
6 : INT 

3757 ‘THIS. TEST WILL CHECK THE INPUT REQUEST INTERRUPT LOGIC 

3758 ZAND FIRMWARE ARBITRATION BY INITIALIZING THE INPUT REQUEST 
3759 VECTOR (XX0) WITH A CORRECT a bey ADDRESS AND THE OUTPUT REQUEST 
3760 4 ay WITH ADDRESS TO ERROR FLAG ROUT! 

3761 THE a REQUEST IS FIRST DONE WITH THE PROCESSOR yes: 
3762 DROPPED TO 0 AND THE INTERRUPT ENABLE BIT NOT SET TO CHECK 
3763 3 THAT AO INTERRUPT OCCURS WHEN THE “RDYIN’’ (BITS P=SELSO) SETS. 
3764 ZTHEN THE INPUT REQUEST IS MADE WITH THE INTERRUPT 

3765 7BIT SET AND THE PROCESSOR STATUS AT 0 TO CHECK THAT THE INTERRUPT 
3766 OCCURS TO THE CORRECT VECTOR ADDRESS 

3767 THEN THE PROCESSOR STATUS IS SET TO LEVEL 7 THE REQUEST MADE 
3768 WITH THE INTERRUPT ENABLE BIT SET AND TEST THAT THE INTERRUPT DOES 
$753 [NOT OCCUR UNTIL THE CORRECT PROCESSOR STATUS IS REACHED 

a SL RRAAAAAAAAAAAAAAAARARREAAAARARAEEREERAAAEREREREEERERERER EERE EEE 

3758 sTEST 33 

3774 SERRA EEEEEEEAEEEEEAERAEAEAERAARERAEAEREREEEEEREEREREEREREEEEEEE 


3775 017156 000004 18133: SCOPE 
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CZKMEA.P11. 20-OCT-81 17:05 T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0076 
3776 017160 012737 000033 002460 MOV #33, TSTNUM sLOAD THE WD OF THIS TEST 
77 017166 0046737 030244 JSR PC, SETLIN ‘SETUP THE FIRST LINE 
778 017172 012737 017200 001110 MOV #1$,S$LPERR SLOAD LOOP ADDRESS (LOOP ON ERROR) 
3779 017200 012737 000001 002452 1$: MOV #1,ERNUM S INITIALIZE ERR # 
3780 017206 005037 002464 CLR 
781 017212 004737 030664 JSR PC, INTKMC - INITIALIZE KMC-11 FIRMWARE 
782 017216 000564 BR 10$ SFIRMWARE FAILED TO INITIALIZE # 
376 ;PRIME INTERRUPT VECTORS, DROP PROCESSOR STATUS TO 0, AND ISSUE 
3784 *A REQUEST IN W/O I.E. IN SET 
3785 017220 013700 902309 Mov VECIN,RO 
3786 017224 012720 017602 MOV #11$, (RO)+ :PRIME INPUT VECTOR 
3787 017230 01 720 000340 MOV #PR7. (RO)+ [PRIME INPUT STATUS LEVEL 
3788 017234 012720 017612 MOV #12$, (RO)+ [PRIME OUTPUT 
3789 017240 012710 000340 MOV #PR7, (RO) SPRIME OUTPUT STATUS LEVEL 
3790 017264 005237 002452 INC ERNUM 
3791 017250 004737 031274 JSR PC,STCLK sSET MAINT LOOP + START CLCcK 
3792 017254 000545 BR 10$ [MAINTENANCE COMMAND NOT ISSUED #=1 
3793 017256 142737 000340 177776 BICB #PR7,PS SSET P.S. 
3794 017264 112777 000043 162766 MOVB  #43,aSELO [LOAD INIT. IN REQ. W/O INT. EN 
3795 017272 005037 001160 CLR $TMPO 
3796 017276 105777 162756 2$: TSTB = @SELO IS /REQUEST GRANTED? 
3797 017302 100405 BMI 3$ *B=YES 
3798 017304 005237 001160 INC $TMPO TALLOW TIME FOR RESPONSE 
3799 017310 001372 BNE 2$ ‘ . 
3800 017312 000526 BR 10$ ;REPORT REQUEST IN “RDYIN'' FAILED TO SET #=2 
3801 017314 000240 NOP 
3802 017316 062737 000002 002452 3S: ADD #2,ERNUM ZNO INTERRUPT OCCURED 
3803 017324 012737 000340 177776 MOV #PR7,PS [SET PROCESSOR BACK TO LEVEL 7 
3804 017332 004737 030664 JSR PC, INTKMC SINITIALIZE KMC-11 FI 
3805 017336 000514 BR 10$ [2ND. INITIALIZE OF F.W. FAILED #=4 
3806 017340 004737 031274 JSR PC, STCLK [SET MAINT LOOP + START CLOCK 
3807 017344 000511 BR 10$ 
3808 017346 005237 002452 INC ERNUM : 
3809 017352 012777 017410 162720 MOV #6$, aVECIN OAD RET. ADDRESS FOR LEGAL INTERRUPT 
3810 017360 042737 000340 177776 BIC #PR?,PS ‘DROP PROCESSOR STATUS TO 0 
3811 017366 112777 000143 162664 MOVB #143. aSELO ZINT. ENABLE, REQ.IN INIT. 
3812 017374 004737 031714 JSR PC,SYNTIM WAIT A WHILE 
3813 017400 012737 000340 177776 MOV #PR7,PS ZRESET PROCESSOR STATUS LEVEL 
3814 017406 000470 BR 1 [REPORT 'RDYIN'' FAILED TO SET (2ND) #=5/ INT. WRONG VEC. 
3815 017410 062737 000002 002452 6$: ADD #2, ERNUM 
3816 017416 022626 POP2SP ZCLEAN THE STACK 
3817 017420 005726 POPSP 
3818 :NOW TEST THAT INTERRUP OCCURS AT THE PROPER PROCESSOR STATUS LEVEL 
3819 017422 012737 000340 177776 MOV #PR7,P 
3820 017430 004737 030664 JSR PC, INTKMC INITIALIZE KMC-11 FIRMWARE 
3821 017434 000455 BR . FAILED TO INIT. #=7 
3822 017436 004737 031274 JSR PC, STCLK ‘SET MAINT LOOP + START CLOCK 
3823 017442 00045¢ BR 10$ 
3824 017444 005237 002452 INC ERNUM 
3825 017450 012777 017540 162622 MOV #9$, aVECIN ZLOAD TRAP ADDRESS OF INTERRUPT 
3826 017456 005037 001160 CLR TMP 
3827 017462 112777 000143 162570 MOVB #143, aSELO ZINT. ENABLE REQ. IN. 
3828 017470 105777 162564 7$: TSTB. = @SELO :1$ REQUEST GRANTED? 
29 017474 100404 BMI 8h *B=YES 
3830 017476 005237 001160 INC $TMPO 
3831 017502 001372 BNE 7$ :NO TRY AGAIN 


Satan Wis eC 
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3832 017504 000431 BR 108 :REPORT REQUEST IN "RDYIN'' FAILED TO SET #=10 
33 017506 0032 7 002452 8$: INC ERNUI 
3834 O75 if 7 000040 177776 SUB #40 FS :KEEP DROPPING STATUS UNTIL INT. OCCURS. 
35 017520 132737 000340 177776 BITB #PR?P ZAT LEVEL 0 
3% 017526 001367 BNE B= 
3837 017530 152737 000340 177776 BISB SER7.PS 
3838 017536 000414 BR 10$ sREPORT INT. FAILED 
3839 017540 116637 000002 002464 9S: MOVB  2(SP),WAS =GET LEVEL INTERRUPT OCCURED AT 
3840 017546 042737 000037 002464 BIC WA 
3841 017554 023737 002464 002304 CMP WAS ,PRIIN sWAS INT. LEVEL SAME * SPECIFIED? 
3842 017562 001002 BNE 10$ ‘B=NO REPORT ERROR #=11 
3843 017564 022626 POP2SP 
3844 017566 000420 TST34 DONE 
3845 sERROR ROUTINE 
3846 017570 10S: 
3847 017570 004737 031470 JSR PC,GETCSR sGET CONTENTS OF THE CSRS 
3848 017574 104033 ‘i ERROR+ 33 
3849 017576 000137 017200 JMP 
3851 s INTERRUPT TRAP SERVICE ROUTINE FOR ILLEGAL INTS. 
3852 017602 013737 002300 002464 11$: MOV VECIN, WAS :GET ADDRESS THAT INT. VECTORED TO 
3853 017610 000403 BR 13$ 
3854 017612 013737 002302 002464 12$: MOV VECOUT WAS ;GET ADDRESS THAT INT. VECTORED TO 
3855 017620 022626 13$:  POP2SP 
3856 017622 005237 002452 INC ERNUM 
3857 017626 000760 BR 10$ 
3858 
3859 


LURE 
*“RDY-IN'* FAILED TO SET — 
LLEGAL INTERRUPT OCCURED (W/PS @ 7) (WAS=VECTOR TRAPPED TO) 
IRMWARE INITIALIZE FAILED AFTER RDYIN SET (WAS=0=N/A) 
CLK FAILED TO START 
:5= - RDYIN FAILED TO SET (WAS=0=N/A) 
;6=INTERRUPTED TO WRONG VECT 3 ADDRESS (WAS=VECTOR ADDRESS TRAPPED TO) 
;7=FIRMWARE FAILED TO INIT. ? a © ssmateaie (WAS=0=N/A) 
;10=3RD. RDY-IN FAILED TO SET (WAS=0=N/ 
311=INTERRUPT OCCURED AT LEVEL “OTHER THAN SPECIFIED (WAS=PS WORD @) 


J FARRAR AAEAEAEEREEREEEEERERAREAEARRERAAEARERERAEREREROREREERERE 


e@Se Ge Se Se Ge Be Be Be Se & 
| 


: INTOUT 
:THIS TEST WILL CHECK THAT AN OUTPUT REQUEST gion ge * CAN CORRECTLY BE 
SEMECUTED ARBITRATION. VECTOR XX4 AND TEST THE LOGIC AND 


2A TRANSMIT AND RECEIVE ihe IS QUEVED TO LINE 0 
mre omy STATUS AT 0 AND THE ° 1EO ri NOT SET 


BUFFERS Watte at 

THE PROCESSOR STATUS AT _0 

tA CHECK IS DONE TO TEST THAT THE INTERRUPT OCCURS TO THE 
SOUTPUT VECTOR ADDRESS XX4. 


PPIITIIITIVILI TITTLE TET ELL LLL LEELA Eee 
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031274 
002452 
000006 
031344 
002452 
000002 
031354 
002452 
001162 
031742 


162230 
001162 
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8 
T VALUE FOR SOFTWARE SWITCH REGISTER 


WITITITITITITITLLLILI LILLE LLT LLL LiL TTT tiiiiTiiiii titi 


1136: 
002460 


001110 
1$: 
002452 


177776 
002522 


002526 


002526 


2$: 


002452 


162220 
002526 


002526 


SCOPE 
MOV #34, TSTNUM sLOAD THE WD OF THIS TEST 

JSR PC, SETLIN ; SETUP THE FIRST LINE 

MOV #i$,SLPERR sLOAD LOOP ADDRESS (LOOP ON ERROR) 


WAS 
MOV #1, ERNUS : INITIALIZE ERR # 
JSR PC; INTKMC 
BR 6s" 3F 


FA 0 INIT. #=1 

;PRIME INTERRUPT VECTORS, DROP PROCESSOR STATUS TO 0, AND 
SQUEUE A RECEIVE AND TRANSMIT BUFFER TO LINE 

THAT BOTH BUFFERS RETURN WITH OUT GENERATING AN INTERRUPT. 
ov VECIN,RO :GET VECTOR ADDRESS 
[PRIME INPUT VECTCR 


{PRIME OUTPUT VECTOR 


;DROP PROCESSOR STATUS TO 0 
DRESS 


MOV #RBUF , BUF ADR SET BUFFER AD 

JSR PC, INTLNE INITIALIZE LINE (#_ JN CURLIN) 

BR | sLINE FAILED TO INITIALIZE #=1 

JSR PC,STCLK SET MAINT LOOP + START CLOCK 

Pac i MAINTENANCE COMMAND NOT ISSUED #=1 
MOV #6 ,BUF CNT A_LARGER REC. BUFF. FOR CRC-32 
JSR PC,RIN LOAD A RECEIVE BUFFER IN 

BR 6$ RECEIVE BUFFER FAILED TO LOAD #=2 
INC ERNUM 

MOV #2,BUF CNT :XMIT BUFFER 

JSR PC,XIN LOAD A TRANSMIT BUFFER IN 

BR 6$ : TRANSMIT BUFFER FAILED TO LOAD #=3 


INC ERNUM 
a FOR THE 2 BUFFERS TO RETURN 
CLR STMP1 ;BUFFER COUNT FLAG 


JSR PC ,REQOUT :TEST REQUEST OUT OF KMC SETS 

BR 6% sBUFFER FAILED TO RETURN #=4 + 5=] TELEGAL INT W/O IEO 
CLRB  a@SEL2 :COMPLETE OUTPUT 

com STMP1 :2ND BUFFE 

3NOW SET THE INTERRUPT ENABLE OUT BIT PRIME OUTPUT 


VECTOR FOR LEGAL INTERRUPT QUEUE A XMIT AND RECEIVE 
gSurren rs Maal FOR A VALID INTERRUPT. 


CLR STMP1 BUFFER COUNTER 

MOV #5$,avECOUT ;PRIME OUTPUT VECTOR FOR LEGAL INT. 
MOV #6 BUF CNT 3REC. BUFF. UP BY 4 orreS FOR cRCnSS 
JSR PC RIN LOAD A RECEIVE BUFFER 

BR 6$ SOND REC, BUFFER FAILED To LOAD. #=6 
INC ERNUM 

MOV #2,BUF CNT eXMIT BUFFER 

JSR PC,XIN :LOAD A TRANSMIT BUFFER IN 

BR 6$ SOND XMIT BUFFER FAILED TO LOAD. #=7 


T-81 08:50 ® 





DMS11=DA DYNAMIC MACY11 30A(1052) 21-0C AGE 79 
11. 20-OCT-81 17:05 GET VALUE FOR SOFTWARE gar Tcn REGISTER 
02011 5237 00245 INC 
0201 1337¢r Minettd 162134 BIS8 #100,aSEL2 ZENABLE THE INTERRUPT 
0 0130 00 Q 7 001160 3$: CLR $TMPO S INTERRUPTS SHOULD OCCUR NOW 
01 142 ? 340 177776 BICB #PR7,PS ;RESET PROCESSOR STATUS TO OO 
020142 105777 162116 4$: TSTB = @SEL2 
0 0146 1 1 BMI 45$ tOUTPUT RDY SET 
92015 005237 001160 INC $TMPO 
020154 904 7 BNE 4$ 
020156 1 g 37 000340 177776 BISB  #PR7,PS ;SET PROCESSOR --> 7 
0 0164 062737 000002 002452 ADD #2, ERNUM ;REPORT BUFFER FAILED TO RETURN #=12 
020172 9004 4 BR 6 ‘M10=INT. TO WRONG VECTOR * 
020174 012737 000012 001164 45$: MOV #10. ,STMP2 {WAIT FOR POSSIBLE INT. DELAY (FIRM.W) 
020202 005337 001164 46$: DEC $TMPS 
020206 001375 BNE 46$ 
020210 005237 002452 INC ERNUM 
020214 052737 000340 177776 BIS #PR7,PS 
020222 000410 BR 6$ sFAIL #=11 
SINT. FAILED 
020224 022626 5$: POP2sP *CLEAN STACK 
020206 042777 000200 162030 BIC #200, aSEL2 s COMPLETE OUTPUT 
020234 005137 001162 COM STMPi 
020240 001421 BEQ TST35 3 DONE 
020242 000732 BR $ [WAIT FOR NEXT BUFFER 
SERROR ROUTINE 
020244 6$: 
020244 004737 031470 JSR PC,GETCSR :GET CONTENTS OF THE CSRS 
020250 104034 ERROR+ 34 
020252 000137 017652 JMP 
s INTERRUPT TRAP SERVICE ROUTINE FOR ILLEGAL INTS. 
020256 013737 002300 002464 7$: Rov VECIN, WAS sADDRESS INT VECTORED TO 
020266 013737 002302 002464 8$: MOV VECOUT WAS 
020274 022626 9$: POP2SP 
020276 005237 002452 INC ERNUM 
020302 000760 BR 6$ 
FAIL 
eR ILORE IN TEST INITIALIZATION ROUTINES (WAS=N/A) 
i @=RECEIVE BUFFER FAILED TO LOAD 
:3=TRANSMIT BUFFER FAILED TO LOAD 
:4=BUFFER FAILED TO RETURN 
[5=ILLEGAL INTERRUPT WITHOUT IEO SET (WAS=VECTOR TRAPPED TO) 
76=2ND RECEIVE BUFFER FAILED TO LOAD 
i 72ND XMIT BUFFER FAILED TO LOAD 
Z10=INTERRUPT OCCURED TO WRONG VECTOR (WAS= VECTOR TRAPPED TO) 
Z]1INTERRUPT FIALED WHEN 'RDYOU’" SET (WAS=N/A) 
712=BUFFER FAILED TO RETURN (NO "'RDYOUT'’) (WAS=N/A) 
e-em atatataettaaaalareneneannea 
020304 000004 18135: SCOPE 
020306 005037 001102 CLR $TSTNM 
atts ieee ates i Mb IF A MONITOR NO UNIT PASSES REPORTED 
* e 
020322 001021 BNE 1$ 


On 
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KMEA.P11 20-0CT-81 17:05 VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0080 
4000 052777 100000 160606 BIT #B1T15,aSwR ; INHIBIT END REPORTS? 

4001 3 1015 BNE 1$ :BR=YES 

400, 104401 0204 TYPE ,UNTDON 

400 ie 013746 002456 MOV CUNIT,=(SP) 

4004 10640 TYPDS 

4005 020 é 105737 002311 TSTB MODE ;BOP OR CCP 

ress 020352 100003 BPL 15$ *B=CCP 

4007 020354 104401 020416 TYPE mBOP 

4008 020 000402 BR is. 

4009 020362 104401 020410 15$: TYPE 

4010 020366 1$: 3GET Next cc OR REPORT AN END PASS 

4011 020366 004737 026506 JSR PC, GETKMC 3661 NEXT ENABLED KMC11 

4012 020372 000414 Ist 6 “REPORT AN END PASS 

4013 020374 000137 002376 JMP LTEST 

4014 020400 005015 047125 052111 UNTDON: .ASCIZ <15><12>/UNIT / 

4015 020406 000040 

4016 020410 020040 041503 000120 mccP: .ASCIZ / CCP/ 

4017 020416 020040 047502 000120 MBOP: .ASCIZ / BO0P/ 

4019 .EVE 

4020 REAR AEAAERERERERREERREEEEERARREEREREEREERREARREEREAREEERERREEREE 
4021 020424 000004 18136: SCOPE 

4025 .SBTTL END OF PASS ROUTINE 

4025 J RAAAAAAAAERERAEERAREEEEREERAERERERREEREREEERRERRERERERERRRREREREE 
4026 : SINCREMENT THE PASS NUMBER (S$PASS) 

4027 :*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
4028 z*TYPE "END PASS #XXXXX"" (WHERE XXXXX IS A DECIMAL NUMBER) 
4029 ‘JF THERES A MONITOR GO TO IT 

£030 :*]F THERE ISN'T JUMP TO RESTRI 

4032 020426 SEOP: 

4033 020426 00000 SCOPE 

40 20430 005037 001102 CLR STSTNM ZERO THE TEST NUMBER 

4035 020434 005037 001166 CLR STIMES 23ZERO THE NUMBER OF ITERATIONS 
4036 020440 005237 001100 INC SPASS ¢ INCREMENT THE PASS NUMBER 
4037 020444 042737 100000 001100 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
4038 020452 005327 DEC (PC)+ 3;LOOP? 

4039 020454 000001 SEOPCT: .WORD 1 

4040 020456 B30 BGT SDOAGN 77YeEs 

4041 020460 0127 MOV (PC)+,a(PC)+ : RESTORE COUNTER 

4042 020462 000001 SENDCT: .WOR 1 

4043 020464 020454 SEOPCT - 

4044 020466 104401 020533 SENDMG 2:TYPE “END PASS Sa 

4045 020472 013746 001100 MOV $PASS,-(SP) ZSAVE $SPASS FOR TYPEOUT 

4046 020476 104405 TYPDS 3360 TYPE==DECIMAL ASCII WITH SIGN 
4047 020500 104401 020530 TYPE »SENULL 3: TYPE A NULL CHARACTER 

4048 020504 013700 000042 $GET42: MOV a#42,R0 3:GET MONITOR ADDRESS 

4049 020510 001405 $DOAGN 33 CH IF NO MONITOR 

4050 020512 900005 RESET 3:CLEAR THE WOR 

4051 020514 004710 SENDAD: JSR PC, (RO) 3:60 TO 

4052 020516 000240 NOP 77 SAVE RO 

4053 020520 000240 NOP 33 

4054 020522 000240 NOP 73ACT11 


4055 020524 SDOAGN: 








On 
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CZKMEA.P11 20-OCT-81 17:05 END OF PASS ROUTINE SEQ 0081 
4056 020524 000137 JMP a(PC)+  ;RETURN 
405 9209 002362 SRTNAD: .WORD RESTRT 
4058 0 377 000 $ENULL: .BYTE 9 :NULL CHARACTER STRING 
4059 02053 015 042412 042116 SENDMG: .ASCIZ Ter >/END PASS’ # 
4060 020540 950040 051501 02012 
4061 020546 00004 
406 .SBTTL SCOPE HANDLER ROUTINE 
4064 FRRAAAAERARARAEEEREEREREEREREREREREREEEREEREREEEREERERERERERREKRE 
4065 tSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
4066 [AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
4067 :*AND LOAD THE ERROR FLAG (S$ERFLG) INTO DISPLAY< <15: 08> 
4068 is THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AR 
4069 8SW14=1 LOOP ON TEST 
4070 :*SW11=1 INHIBIT ITERATIONS 
4071 :*SWO9=1 LOOP 
407 + *$W08=1 LOOP ON TEST IN SWR<7:0> 
407 3 *CALL 
4074 8 SCOPE ::SCOPE=10T 
4075 
4076 020550 SSCOPE: 
4077 020550 104407 CKSWR EST FOR CHANGE IN SOFT-SWR 
4078 :GO TO ERROR ROUTINE IF RETURN pe RSs THAN 1002 
4079 :TOTHERWISE CONT INUE 
4080 020552 021627 001002 CMP SP) ,#1002 ZUNEXPECTED TRAP OR INTERRRUPT 
4081 020556 101002 BHI is S:ARE TRAPPED HERE VIA IOT 
4082 020560 000137 021034 JMP SERROR +:GO0 PROCESS UNEXPECTED TRAP 
4083 020564 032777 040000 160346 1$: BIT #81T14,aSWR *:LOOP ON PRESENT TEST? 
4084 020572 001111 BNE SOVER *<YES IF SW14= 
4085 :#AHHHSTART OF CODE FOR THE XOR TEstEnseeee 
4086 020574 000416 $XTSTR: BR 6$ 31F RUNNING ON THE ‘'XOR'' TESTER CHANGE 
4087 sSTHIS INSTRUCTION TO A ‘NOP’’ =240) 
4088 020576 013746 000004 MOV @FERRVEC (SP) 7:SAVE THE CONTENTS OF THE ERROR VECTOR 
4089 020602 012737 020622 000004 MOV #5$,aWERRVEC =: SET _FOR TIMEOUT 
4090 020610 005737 177060 TST a#177060 :TIME OUT 
4091 020614 012637 000004 MOV (SP) +, a#ERRVEC i SRESTORE THE ERROR VECTOR 
4092 020620 63 BR SSVLAD 3360 TO THE NEXT TEST 
4093 020622 022626 5$: CMP (SP)+, (SP)+ *CLEAR THE STACK TOS TER A TIME OUT 
4094 020624 012637 000004 MOV (SP) +, a#ERRVEC 3 3RESTORE THE ERROR VECTOR 
4095 020630 000423 BR 7$ LOOP ON THE PRESENT TEST 
409% 020632 6$::M#HAAEND OF CODE FOR THE XOR * TESTERSAMAE 
4097 920658 032777 000400 160300 BIT #B81T08,aSWR ::LOOP ON SPEC. TEST? 
4098 020640 001404 BEQ $ ::BR IF 
4099 020642 127737 160272 001102 CMPB = @SWR, STSTNM 330N THE RIGHT TEST? — SWR<7:0> 
4100 020650 00146 BEQ SOVER *:BR IF YES 
4101 020652 105737 001103 2$: TSTB = SERFLG 33HAS AN ERROR OCCURRED? 
4102 020656 1421 BEQ $ 33BR. IF _NO 
4103 02 123737 001115 001103 CMPB $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
4104 02 101015 BHI ::BR IF NO 
4105 920670 952777 001000 160242 BIT #B1T09,aSwR sata ERROR? 
4107 020700 METZ, 001110 001106 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
4108 020706 000445 BR SOVER 
4109 020710 105037 001103 4$: CLRB = SERFLG z2ZERO THE ERROR FLAG 
4110 020714 005037 001166 CLR STIMES S:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
4111 020720 000415 BR 1$ S:ESCAPE TO THE NEXT TEST 
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— HANDLER ROUTINE 

160210 3$: BIT #B81T11,aSWR 3: INHIBIT ITERATIONS? 

BNE 32BR IF 4 

TST SPASS s21F FIRST PASS OF PROGRAM 

BEQ 6é INHIBIT LTE os 

INC SICNT Zz INCREMENT ITERATION COUNT 
001104 MP STIMES,SICNT sz CHECK T R OF ITERATIONS MADE 

BGE SOVER 73;BR IF WOR RATION REQUI 

11 1$: MOV #1,S$ICNT ssREINITIALIZE THE ITERATION COUNTER 
001166 MOV SMKCNT ,STIMES 33SET ITERATIONS TO DO 
SSVLAD: INCB $TS 3;COUNT TEST RS 

MOV tsp) NSLPADR 23 SAVE SCOPE LOOP ADDRESS 

MOV (SP); $LPERR AVE ERROR LOOP ADDRESS 

CLR SESCAPE #2 CLEAR THE ESCAPE FROM ERROR ADDRESS 
001115 MOVB #1,SERMAX S:ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
160116 S$OVER: MOV STSTNM,@DISPLAY ;;DISPLAY TEST NUMBER 


SMXCNT: 1 
-SBTTL ERROR HANDLER ROUTINE 


MOV SLPADR , (SP) ge 


FUDGE RETURN ADDRESS 
TIMAX. NUMBER OF ITERATIONS 


FRAAAARAEKAHARAEAEREEREREEEEREERERRREERERRERERERERRERREREERERERRERKE 


SATHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE 
: *SAVE | ERROR I aa —_ 


:*AND GO TO SERRTYP ON 
:*THE SWITCH sald oy PROviDED BY THIS ROUTINE ARE: 


ERROR COUNT, 
ER AND THE ADDRESS OF THE ERROR CALL 


:*SW15=1 
*SW13=1 INHIBIT ERROR TYPEOUTS 
t*SWi0=1 BELL ON ERROR 
: suov=t LOOP ON ERROR 
3* 
* ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR 
CKSWR z:TEST FOR CHANGE IN SOFT-SWR 
7$: INCB = SERFLG iiSET THE ERROR FLAG 
BEQ 7$ ON'T LET THE FLAG GO TO ZERO 
160070 MOV $TSTNM, @DISPLAY SO PSPLAY TEST NUMBER AND ERROR FLAG 
160060 BIT #B1T10.aSWR ;3BELL ON ERROR? 
BEQ 1$ =NO = SKIP 
TYPE $BELL : RING BELL 
1$: INC $ERTTL T TH hE NUMBER OF ERRORS 
an! MOV (SP) , SERRPC S:GET ADDRESS OF ERROR INSTRUCTION 
001114 MOVB aS$ERRPC,SITEMB ;;:STRIP AND SAVE THE ERROR ITEM CODE 
160020 BIT #81113, aSwWR t:SKIP TYPEOUT IF SET 
BNE $ 33SKIP_TYPEOUT 
CMP (SP) ,#1002 [:1F RETURN PC LESS THAN 1002 
BHI 2$ ERROR IS ILLEGAL TRAP 
zzPROCESS UNEXPECTED TRAP OR mri 
001116 MOV 4(SP) SERRPC 3 3GET Toe AT TIME OF FALSE TRAP 
001116 SUB SERRPC ST PC 
TYPE 2 TYPE HEADER 
MOV $ERRPC,-(SP) § ::SAVE SERRPC FOR TYPEOUT 
TyPoC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 


2118 
SUB #4, (SP) 


3:GET FALSE TRAP VECTOR ADDR 


On 
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CZKMEA.P11 20-OCT-81 17:05 RROR HANDLER ROUTI SEQ 0083 
4168 021166 13885 001116 MOV (SP) , SERRPC 
4169 9 11 746 001116 MOV SERRPC,-(SP)  :;SAVE SERRPC FOR TYPEOUT 
4170 021176 TYPOC 2:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
4171 021200 19ceo4 001177 TYPE ,$CRLF 
4172 021204 0 2626 C (SP)+, (SP)+ z:POP FALSE TRAP VECTOR PC&ADDR 
4173 0 1206 pee BR 0$ 
4174 021210 050200 036503 000040 10$: .ASCIZ <200>'PC= ' 
4175 O21¢i6 920040 047125 054105 11$: “ASCIZ ° UNEXPECTED TRAP TO ° 
4176 021224 042520 052103 042105 
4177 021232 052040 040522 020120 
4178 021240 047524 000040 
4179 EVEN 
4180 021244 128: 
4181 021244 004737 021330 JSR PC, SERRTYP 2:G0 TO USER ERROR ROUTINE 
4182 021250 104401 001177 TYPE  ,$CRLF 
4183 021254 208: 
4184 021254 005777 157660 2$: TST aswR ::HALT ON ERROR 
4185 021260 100002 BPL 3$ t:SKIP IF CONTINUE 
4186 021262 000000 HALT 7 HAL ERROR! 
4187 021264 104407 CKSWR 3TEST FOR CHANGE IN SOFT~SWR 
4188 021266 032777 001000 157644 3$: BIT #B1T09,aSWR :3LOOP_ON ERROR SWITCH SET? 
4189 021274 001402 BEQ :BR IF NO 
4190 021276 013716 001110 MOV SLPERR, (SP) ‘FUDGE RETURN FOR LOOPING 
4191 021302 005737 001170 4$: TST SESCAPE 3 CHECK FOR AN ESCAPE ADDRESS 
4192 021306 001402 BEQ 5$ F NONE 
4198 921310 013716 001170 - MOV SESCAPE,(SP) | ::FUDGE R "URN ADDRESS FOR ESCAPE 
4195 021314 022737 020514 000042 CMP WSENDAD,@442 =; :ACT=11 AUTO-ACCEPT? 
4196 021322 001001 BNE 6$ ::BRANCH IF NO 
4197 021324 000000 HALT +: YES 
4198 021326 6$: 
4199 021326 000002 RTI : ;RETURN 
4200 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
4202 FRAAAAAEAAAERERARREREEEEEEEEEREEREEERERERERERAERERERERRAREERRRERER 
4203 tSTHIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE, WH ICH 
4204 [*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE’ ($ERRTB), 
4205 :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
4207 021330 SERRTYP: 
4208 021330 104401 001177 TYPE  ,$CRLF rz"CARRIAGE RETURN’ & "LINE FEED" 
4209 021334 010046 MOV RO,-(SP) 3 
4210 021336 005000 CLR RO [PICKUP THE ITEM INDEX 
4211 021340 153700 001114 BISB aA#SITEMB,RO 
4212 021344 001004 BNE 1$ :1F ITEM NUMBER IS ZERO, JUST 
421 +I TYPE THE PC OF THE ERROR 
4214 021346 013746 001116 MOV SERRPC,-(SP)  ::SAVE SERRPC FOR TYPEOUT 
4215 ::ERROR ADDRESS 
4216 021352 104402 TYPOC 33G0 TYPE~-OCTAL ASCII(ALL DIGITS) 
4217 021354 00044 BR 10$ [GET OU 
4218 021356 005300 1$: DEC RO ; ADJUST THE INDEX SO THAT IT WILL 
4219 021360 006300 ASL RO 3 WORK FOR THE ERROR TABLE 
4220 021362 300 ASL RO 
4221 021364 300 ASL RO 
4222 021366 062700 001202 ADD #SERRTB RO FORM TABLE POINTER 
4223 021372 012037 021402 MOV +,2$ S:PICKUP "ERROR MESSAGE’ POINTER 





on 
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CZKMEA.P11 20-OCT-81 17:05 OR MESSAGE TYPEOUT ROUTINE SEQ 0084 
4224 021376 001404 BEQ 3$ z:SKIP TYPEOUT IF NO POINTER 
ages 021400 104401 TYPE ii TYPE THE "ERROR 
4226 021402 000000 2$: .WORD 0 33‘ ERROR MESSAGE PO NIER GOES HERE 
4227 021404 104401 001177 TYPE ,$CRLF 3 CARRIAG RETURN’ & LINE FEED 
4208 021410 012037 021420 3$: MOV (RO)+,4$ T:PIC uP DATA HEADER’ POINTER 
4 021414 001404 BEQ 5 33 : UTYPEOUT IF vs 
4230 021416 104401 TYPE :ETYPE THE ‘DATA HEADER 
4231 021420 000000 4$: «WORD 0 33'DATA HEADER’ POINTER GOES HERE, 
4232 021422 104401 001177 TYPE SCRLF 3s"'CARRIAGE RETURN’ & "LINE FEED" 
4233 021426 010146 5$: MOV  R1,~(SP) R1, ‘8 
4234 021430 012001 MOV (RO)+,R1 3 1CKUP DATA TABLE’ POINTER 
4235 021432 001415 BEQ 3:BR IF NO DATA TO BE TYPE 
4236 021434 012000 MOV (RO)+,RO S:PICKUP "DATA FORMAT'’ POINTER 
4237 021436 105720 6$: TSTB = (RO) + 33"0CTAL"* OR “DECIMAL 
4238 021440 001003 BNE 7$ [BR IF DECIMAL 
4239 021442 013146 MOV a(R1)+,-(SP) SAVE @<R1)+ FOR TYPEOUT 
4240 021444 104402 TYPOC 1:60 TYPE=-OCTAL ASCII(ALL DIGITS) 
4241 021446 000402 BR 8$ 
4242 021450 7$: 
4243 021450 013146 MOV a(R1)+,-(SP) £2 SAVE a(R1)+ FOR TYPEOUT 
4244 021452 104405 TYPDS 339 TYPE=-DECIMAL ASCII WITH SIGN 
4245 021454 005711 8$: TST (R1) S THERE ANOTHER NUMBER? 
4246 021456 001403 BEQ 9$ at IF NO 
4247 021460 104401 021500 TYPE =—_ 11 S:TYPE TWO(2) SPACES 
4268 021464 000764 BR é$ LOOP 
4250 021466 012601 9$: MOV (SP)+,R1 i REST ORE R 
4251 021470 012600 10$: MOV (SP)+-RO [RESTORE RO 
4252 021472 104401 001177 TYPE  ,$CRLF 33'CARRIAGE RETURN’ & “LINE FEED" 
4253 021476 000207 RTS PC RETURN 
4254 021500 020040 000 11$: “ASCIZ , a ::TwO(2) SPACES 
4255 021504 VEN 
4256 .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
4258 FERRARA EAEEEEEREEREREEEERAEREEREEREERRERERERERREREREKERRERREEE 
4259 SRTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
4260 [*CHANGE IT TO BINARY. 
4261 :*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 
4262 3 #0CTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?"' WILL BE TYPED 
4263 [*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
4264 THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
4266 ie OCT 7:READ AN OCTAL NUMBER 
4267 i* RETURN HERE ::LOW ORDER BITS ARE ON TOP OF THE STACK 
4268 3* [HIGH ORDER BITS ARE IN $HIOCT 
4270 021504 011646 SRDOCT: MOV (SP) ,=(SP) ; sPROVIDE SPACE FOR THE 
4271 021506 016666 000004 000002 MOV 4(SP5 ,2(SP) T NUMBER 
4272 021514 010046 MOV RO,-(SP) PUSH RO ON STACK 
4273 021516 010146 MOV R1.-(SP) +:PUSH R1 ON STACK 
4274 021520 010246 MOV R2,-(SP) : PUSH Re ON STACK 
4275 021522 104411 1$: RDLIN ASCIZ LINE 
4276 021526 012600 MOV (SP)+,RO iTcer ADDRESS OF 1ST CHARACTER 
4277 021526 010037 021632 MOV RO,5$ SAND SAVE IT 
4278 021532 005001 CLR R1 TICLEAR DATA WORD 
4279 021534 005002 CLR R2 
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4280 021536 
4281 021540 
res 021542 
4283 0 1388 
4284 02155 
4285 021554 
42 021556 
4287 021560 
4288 021562 
4289 021564 
4290 021566 
4291 $51378 
4292 021572 
4293 021576 
4294 021600 
4295 021602 
4296 021604 
4297 021610 
4298 021614 
4299 021616 
4300 021620 
4301 021622 
4302 021624 
4303 021626 
4304 021630 
4395 021632 
4306 021634 
4307 021640 
4308 021642 
4309 
4310 
4311 
4312 
4313 021644 
4314 021646 
4315 021650 
4316 021652 
4317 
4318 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 021660 
4329 021664 
4330 021672 
4331 021700 
4332 021706 
4333 021714 
4334 021720 
4335 021726 


ssuseussese 


S 
MmoOou 


Cooo[oo 
Nm 
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Not 


2 
on 
= 
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:~ So 
WVIMmans 
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000060 
000067 


177770 


000012 
021642 


001176 


_ ooo 
RSS 
SNSIRAR 
SRSSENE 
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021646 
021650 
000060 
900062 


157216 


2s: 


3$: 


4$: 


5$: 
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OCTAL NUMBER FROM THE TTY 
(RO) +,=(SP) 


#*C7, (SP) 
P)+,R1 


(SP) 
R1, 12(SP) 


(SP)+,RO 


(SP)+ 
(RO) 


0 
SQUES 
is 


BR 
SHIOCT: .WORD 0 
-SBTTL TTY INPUT ROUTINE 


Fe AARRAAAAAEAEAAAREAEEREEEEEERERERRREEKEEAERERRAEEEEREREREEERAEEEREEEE 


EV N 


oo 


bes INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIA 
; SETUP THE INTERRUPT VECT 


CALL: 
te 


°* 


STKINT: 


PC, STKINT 


STKCNT 
#STKOSRT,STKQIN 
$TKQIN, $TKQOUT 
#STKSRV, a#TKVEC 
#200, a#TKVEC+2 


#100, a$TKS 
PC 


ize THE 


SEQ 0085 
3sPICKUP THIS ‘oo 


silF ZERO GET 
sMAKE SURE THIS CHARACTER 
HHS AN OCTAL DIGIT 


z3%2 
384 
33*8 


zsSTRIP THE ASCII JUNK 
2 3ADD IN THIS DIGIT 


sl 
7: CLEAN TERMINATOR FROM STACK 
3sSAVE THE RESULT 


33POP STACK INTO R2 
:250 STACK INTO R1 
sPOP STACK INTO RO 


URN 
SICLEAN PARTIAL FROM STACK 
3-SET A TERMINATOR 
32 TYPE UP THRU THE BAD CHAR. 


ge i abe “7 & "~s** 
7: TRY AGAIN 
:sHIGH ORDER BITS GO HERE 


2 ;NUMBER OF Hh IN QUEUE 
33 INPUT POINT 
OUTPUT POINTER 
SITY KEYBOARD QUEUE 


TTY KEYBOARD INPUT QUEUE 
TURN ON THE KEYBOARD INTERRUPT 


CLEAR COUNT OF ITEMS IN QUEUE 
: MOVE THE STARTING ceteris S_OF THE 
UE INTO THE INPUT & OUTPUT POINTERS. 
# INITIALIZE we KEYBOARD VECTOR 


Z:CLEAR DONE FLAG 
3sENABLE TTY KEYBOARD INTERRUPT 
2RETURN TO CALLER 





no 
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CZ2KMEA.P11 20-OCT-81 17:05 TTY INPUT ROUTINE SEQ 0086 
4336 
4337 :*TK SERVICE ROUTINE 
4338 :*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
4339 :*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
4340 ial! IN THE QUEUE. a rn 
4341 ;#1F THE CHARACTER IS A ‘‘CONTROL@C°" (“C) STKINT IS CALLED AND 
434 ‘UPON RETURN EXIT IS MADE TO THE "CONTROL=C'' RESTART ADDRESS (MONIT) 
4344 021730 117746 157212 nah MOVB = a$TKB, -(SP) zsPICKUP THE CHARACTER 
4345 021734 042716 177600 BIC #°C177, (SP) :zSTRIP THE JUNK 
4346 021740 021627 000021 CMP <Sb) a$XON :31S 1T A RANDOM XON? :RANOO1 
4347 021744 001002 BNE 30$ : CH IF *RANOO1 
4348 021746 005726 TST (SP) + [:CLEAN RANDOM XON OFF STACK *RANOO1 
4349 021750 000002 RTI + RETURN *RANOO1 
4350 021752 30S: SRANOO1 
4351 021752 021627 000003 CMP (SP) #3 z1S IT A CONTROL C? 
4352 021756 001007 BNE 1s CH IF 
4353 021760 104401 023072 TYPE S$CNTLC T:TYPE A CONTROL-C (*C) 
4354 021764 004737 021660 JSR PC. $TKINT 3INIT THE KEYBOARD 
4355 021770 005726 TST SP)+ [CLEAN UP STACK 
4356 021772 000137 002076 JMP MONIT 33 CONTROL C RESTART 
4357 021776 021627 000007 1$: CMP (SP) #7 ::1$ IT A CONTROL G? 
4358 022002 001004 BNE $ t: H IF NO 
4359 022006 022737 000176 001140 CMP #SWREG, SWR t:1S SOFT=SWR SELECTED? 
4360 022012 001500 ' BEQ 6$ +:G0 TO SWR CHANGE 
4362 022014 2$: 
4363 022014 022737 000005 021644 CMP #5. ,$TKCNT zz1S THE QUEUE FULL? 
4364 022022 001004 BNE 3$ ::BRANCH IF NO 
4365 022024 104401 001172 TYPE ,S$BELL ':RING THE TTY BELL 
4 022030 005726 TST (SP) + eC LEAN CHARACTER OFF OF STACK 
4367 022032 000451 BR 5$ 
022034 021627 000023 3$: CMP (SP) #23 3318 IT A CONTROL=S? 
4369 022040 001021 BNE 32$ [BRANCH IF NO 
4370 022042 005077 157076 CLR a$TKS + :DISABLE TTY KEYBOARD INTERRUPTS 
4371 022046 005726 TST (SP)+ 33CLEAN CHAR OFF STACK 
4372 022050 105777 157070 31$:  TSTB  aSTKS t:WAIT FOR A CHARS 
4373 022054 100375 BPL 31$ ::LOOP UNTIL ITS THERE 
4374 022056 117746 157064 MOVB asTkB -(SP) [:GET THE CHARACTER 
4375 022062 042716 177600 BIC #°C177, (SP) S:MAKE IT 7-BIT ASCII 
4376 022 022627 000021 CMP (SP)+,#21 3318 IT A CONTROL -Q? 
4377 022072 001366 BNE : H IF NO 
4378 022074 012777 000100 157042 MOV #100, a$TkS : FREENABLE TTY KEYBOARD INTERRUPTS 
4379 022102 3 RTI SRET 
4380 022104 005237 021644 32$: INC STKCNT ::COUNT THIS CHARACTER 
4381 022110 021627 000140 CMP (SP) ,#140 3318 IT UPPER CASE? 
4382 022114 002405 BLT ‘BRANCH IF YES 
4383 022116 021627 000175 CMP (SP) #175 3318 IT A SPECIAL CHAR? 
4384 022122 003002 BGT 4$ [BRANCH IF YES 
4385 022124 042716 000040 BIC #40, (SP) ::MAKE IT UPPER CASE 
4386 0221 M267 177512 4$: MOVB  (SP5+,a$TKQIN ::AND PUT IT IN QUEUE 
4387 022134 005237 021646 INC TKO :: UPDATE THE POINTER 
4388 022140 023727 021646 021657 CMP STKQIN,#STKQEND ;;GO OFF THE END? 
4389 022146 00100 BNE [BRANCH IF NO 
4390 022150 012737 021652 021646 MOV WSTKQSRT,STKQIN ;:RESET THE POINTER 
4391 022156 000002 5$: RTI + :RETURN 
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099976 


022300 
022304 
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117746 
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021627 
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000176 
156759 
156744 


177600 
000007 


000001 
023104 
023111 
000176 


023122 


156646 


156642 
177600 
000003 
023072 
690006 
00113 

000100 
002076 
000025 


023077 
000006 
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001140 


000001 


001135 
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156600 
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ROUTINE 


SEQ 0087 


Pitti iiiiiiiciie) 
+ RSOF TWARE SWITCH REGISTER cae ROUTINE. 
:*ROUTINE IS HE 


EN 

: #SERVICE THE TEST FOR CHANGE IN 

ne hy OPERATING IN TTY oak ¢ 
#SWREG, SUR 


icks 


TER . FROM T 


aSTKS 
15$ 


a$TKB,-(SP) 
#°C177, (SP) 
(SP) ,#? 


TRAP HANDLER, AND WILL 
SOFTWARE SWITCH REGISTER TRAP 


S THE SOP T-SUR SELECTED 


33MAKE_IT 7=BIT ASCII 

44 IT A CONTROL-G? 

sel NOT, PUT IT IN THE TTY QUEUE 
SAND EXIT 


FRRAARAERAEEEREREEREEREREEEEERERERRERERRERERRREEREREERERERREREREEE 


: RCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY rere SERVICE 


; *ROUTINE 


és: 


T 
SGTSWR: 
MO 


19$: 
7$: 


20$: 


OR 


(SP 

PC. STKINT 
asTKS 
#1,SINTAG 
oSCNTLG 

. SMSWR 
SWREG,-(SP) 


a$TKB,-(SP) 
#°C177, (SP) 


(SP) #3 
SCNTLC 
SINTAG, #1 
#100, a$TKS 
MONI Tf 

(SP) #25 
10$ 
»SCNTLU 


#6, SP 
19§ 


FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF 
;*CONTROL-G BEING TYPED, AND THE _SOF TWARE SWITCH REGISTER B BEING SELECTED. 
CMPB SAUTOB, #1 4 RUNNING IN AUTO-MODE? 


T QUEUE 
3sDISABLE TTY "KEYBOARD INTERRUPTS 
2sSET INTERRUPT MODE INDICATOR 


2 sECHO THE CONTROL=-G (*G) 


; N TYPEOUT 
2:60 ST oak can ASCIICALL DIGITS) 
:sPROMPT FOR NEW SWR 

:-CLEAR_ COUNT 

ae NEW SWR 

3:CHAR THERE? 

:31F NOT TRY AGAIN 


3sPICK UP CHAR 
33MAKE IT 7-BIT ASCII 


31S _ IT A_CONTROL-C? 
3; sBRANCH NOT 
scYES, ECHO CONTROL-C (“C) 
33 CLEAN kK 
;REENABLE TTY KEYBOARD INTERRUPTS? 
; TBRANCH IF 
77ALLOW TTY KEYBOARD INTERRUPTS 
2:CONTROL-C RESTART 
Pee IT A_CONTROL-U? 
; BRANCH IF NOT 
3iYES, ECHO CONTROL-U (“U) 


: IGNORE PREVIOUS INPUT 
7:LET'S TRY IT AGAIN 


Ci 
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022520 


022522 


oO 
m 


838s 


NOOO 
rN 


so 
NS 
RNAS 


CSNo 
=—Oorn 
NOW 
VESNSd 
NOnNO 
ANN NUN 


Oo 
mM 
WWE NNOALAN 


eoseeconeses 
PS SEE 


S38 
on 


023462 
000060 


000067 


000060 
000002 


000002 
177776 


001176 


000004 
000004 
022546 
021644 
OF 1666 
177064 
021650 
021650 
021652 
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ree IT A_<CR>? 
H_IF_NO 
ZIYES. ct Hy we FIRST CHAR? 


33 AND < 
: RE-ENABLE TTY KBD INTERRUPTS? 
: RE-ENABLE TTY KBD INTERRUPTS 


a IF YES 

zsSTRIP-OFF ASCII 

3318 THIS THE FIRST CHAR 
CH IF YES 

33NO, ak t PRESENT 


ae a toe TO MAKE 
33 ROOM FOR NEW ONE. 
3:KEEP COUNT OF CHAR 


23SET IN NEW CHAR 
7G T 


 ESIMULATE CONTROL=-U 


REREREEEEEEAEEAEREAEEEEREREERAERAAKEERAEREREREEEREREERRAEEREEREEE 


ZATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


INPUT ROUTI 
10$: CMP (SP) #15 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
156526 MOV 2(SP) ,aSWR 
11$: ADD #6, 
146$: TYPE SCRLF 
000001 cMpe SINTAG #1 
156504 MOV #100, a$TKS 
5$ RTI 
16$ JSR PC, S$TYPEC 
CMP (SP) #60 
BLT 18$ 
CMP (SP) #67 
BGT 
BIC #60, (SP)+ 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
17$: INC 2(SP) 
BIS -2(SP), (SP) 
BR 7$ 
18$: TYPE SQUES 
30$ 
.DSABL LSB 
* RDCHR 
7* RETURN HERE 
3* 
SRDCHR: MOV (SP) ,-(SP) 
000002 MOV 4(SP5, 2(SP) 
CLR 4(SP) 
CLR 
MOV 9628. -(SP) 
RTI 
64$: 
1$: TST STKCNT 
BEQ 1$ 
DEC $TKC 
000004 MOVB Se IKCOUT. 4(SP) 
INC $TKQOUT 
021657 CMP $TKQOUT, #STKQEND’ ; 
021650 MOV #STKQSRT, STKQOUT’ ; 


33GET A CHARACTER FROM THE QUEUE 
: CHARACTER IS ON THE STACK 
;:WITH PARITY BIT STRIPPED OFF 


444 gh DOWN THE PC AND 
33 THE PS 


4 7 READY FOR A_CHARACTER 
T NEW PS ON STACK 
T NEW PC ON STACK 
‘POP NEW PC AND PS 
z:WAIT ON A CHARACTER 


2 sDECREMENT THE a 
T ONE CHARAC 


SSUPDATE THE POIN FER 
jgbID AT GO OFF OF THE END? 
*RESET THE POINTER 
URN 


s cenenenadenbhnaneebenncensenabbananeaenabeunenneeeneenaneeenes 


SEQ 0088 
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CZKMEA.P11 20-OCT-81 17:05 Y INPUT ROUTIN 
4504 :*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
4505 s*CALL: 
406 * RDLIN Zz INPUT A STRING FROM THE TTY 
450 3* RETURN HERE S:ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
4308 * 7 TERMINATOR WILL BE A BYTE OF ALL O'S 
4510 022612 010346 SRDLIN: MOV R3,-(SP) SZSAVE R3 
4511 022614 005046 CLR -(§P) ‘:CLEAR THE RUBOUT KEY 
aig 022616 012703 023046 1$: MOV #STTYIN,R3 7:GET ADDRESS 
4513 022622 022703 023072 2$: CMP ASTTYIN+20.,R3 ;:BUFFER FULL? 
4514 022626 101456 BLOS 4$ ::BR IF YES 
4515 022630 104410 RDCHR 7:60 READ ONE CHARACTER FROM THE TTY 
4516 022632 112613 MOVB (SP) +, (R3) <:GET CHARACTER 
4517 022634 122713 000177 10$:  CMPB #177, (R3) ':1$ IT A RUBOUT 
4518 022640 001022 BNE 5$ 7:BR IF NO 
4519 022642 005716 TST (SP) ::1S THIS THE FIRST RUBOUT? 
4520 022644 001007 BNE ::BR IF NO 
4521 022646 112737 000134 023044 MOVB so #'"\ 98 :: TYPE A BACK SLASH 
4522 022654 104401 023044 1 eae 
4523 022660 012716 177777 MOV #-1, (SP) ::SET THE RUBOUT KEY 
4524 022664 005303 6$: DEC R3 [BACKUP BY ONE 
4525 022666 020327 023046 CMP R3,ASTTYIN t:STACK EMPTY? 
4526 022672 103434 BLO ::BR IF YES 
4527 022674 111337 023044 MOVB = (R3),9$ ::SETUP TO TYPEOUT THE DELETED CHAR. 
4528 022700 104401 023044 TYPE 9$ ::G0 TYPE 
4529 022704 000746 BR os *:GO READ ANOTHER CHAR. 
4530 022706 005716 5$: TST (SP) +:RUBOUT KEY SET? 
4531 622710 001406 BEQ 7$ 7:BR IF NO 
4532 022712 112737 000134 023044 MOVB = #'\ ,9$ :: TYPE A BACK SLASH 
4533 022720 104401 023044 TYPE ,9$ 
4 022724 00501 CLR (SP) ::CLEAR THE RUBOUT KEY 
4535 022726 122713 000025 7$: CMPB ss #25, (R3) t:1S CHARACTER A CTRL U? 
4536 022732 001003 BNE ::BR IF NO 
4537 022734 104401 023077 TYPE SCNTLU +: TYPE A CONTROL ‘U"' 
4538 022740 000726 BR 1:60 START OVER 
4539 022742 122713 000022 8$: CMPB ss #22, (R3) *:1S CHARACTER A ‘"*R''? 
4540 022746 001011 BNE 3$ [BRANCH IF NO 
4 022750 105013 CLRB ss. (R23) CLEAR THE CHARACTER 
4542 022752 104401 001177 TYPE  ,$CRLF S:TYPE ACR & LE" 
4543 022756 104401 023046 TYPE $TTYIN [TYPE THE INPUT STRING 
4544 022762 000717 BR 7:G0 PICKUP ANOTHER CHACTER 
4545 022764 104401 001176 4$: TYPE $QUES s:TYPE A ‘2° 
4546 022770 000712 BR ‘:CLEAR THE BUFFER AND LOOP 
4547 92 772 111337 023044 3$: MOVB ‘(R3),9$ [ECHO THE CHARACTER 
4548 022776 104401 023044 TYPE 
4549 023002 122723 000015 CMPB ss #15, (R3)+ r:CHECK FOR RETURN 
4550 023006 001305 BNE 2$ +:LOOP IF NOT RETURN 
4551 023010 105063 177777 CLRB = = 1(R3) [:CLEAR RETURN (THE 15) 
4552 023014 104401 001200 TYPE ,$LF [: TYPE A LINE FEE 
4553 023020 005726 TST (SP)+ 7: CLEAN RUBOUT KEY FROM THE STACK 
4554 023022 012603 MOV (SP)+,R3 s:RESTORE R 
4555 023024 011646 MOV (SP) ,-(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
4556 923026 016666 000004 000002 MOV 4(SPS ,2¢SP) 3: FIRST ASCII CHARACTER ON IT 
4557 0230 12766 023046 000004 MOV #STTYIN, 4(SP) 
4558 023042 000002 RTI 7 RETURN 
4559 023044 000 9$: .BYTE 0 Z:STORAGE FOR ASCII CHAR. TO TYPE 





————, 


On 
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4560 023045 000 .BYTE 0 2 TERMINA 
4561 023046 900024 STTYIN: .BLKB 20. i :RESERVE Bor BYTES FOR TTY INPUT 
4562 023072 041 005015 909 SCNTLE: .ASCIZ /*C/<15><12> —  ; CONTROL 
456 92307 136 525 000012 S$CNTLU: .ASCIZ /*U/<15><12>  ::CONTROL a 
4564 023104 043536 005015 00 SCNILG: “ASCIZ /*G/<15><12> 3 : CONTROL "'G 
4565 023111 015 051412 051127 S$MSWR: .ASCIZ <15><12>/SWR = 
4566 023116 036440 000040 
4567 023122 020040 042516 020127 SMNEW: .ASCIZ / NEW = 
4568 023130 020075 000 
4569 023134 EVEN 
4370 -SBTTL READ A DECIMAL NUMBER FROM THE TTY 
4572 STHIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AN 
4573 SRTHIS ROUTINE WILL READ A DECIMAL (ASCII) NUMBER FROM THE TTY AND 
4574 * * CHANGE IT TO BINARY. IF TOO MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
4575 [ARE READ A ‘'?"’ FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
4576 [*THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATE 
4577 Z*USER TYPING A CARRIAGE RETURN. THE RANGE OF THE INPUT NUMBER IS 
4978 : sPOSITIVE 32767 TO NEGATIVE 32768. 
4580 :e RDDEC z:READ A DECIMAL NUMBER 
4381 i RETURN HERE ‘:NUMBER IS ON TOP OF THE STACK 
4583 . 
4584 023134 011646 SRDDEC: MOV (SP) ,-(SP) szPROVIDE SPACE FOR 
4585 023136 016666 000004 000002 MOV 4cSP5 22 (SP) ::THE INPUT NUMBER 
4586 023144 010046 MOV RO,-(SP) +:PUSH RO ON STACK 
4587 023146 010146 MOV R1.-(SP) ':PUSH R1 ON STACK 
4588 023150 010246 MOV R2.-(SP) +:PUSH R2 ON STACK 
4589 023152 104411 1$: RDLIN ::READ AN ASCIZ LINE 
4590 023154 012600 MOV (SP)+,RO [ADDRESS OF 1ST CHAR. 
4591 023156 010037 023302 MOV RO,6$ T:SAVE INCASE OF BAD INPUT 
4592 023162 005046 CLR -(SP) eet AR DATA WORD 
4593 023164 005002 CLR R2 SIGN SET POSITIVE 
4594 023166 122710 000055 CMPB eo # "=, (RO) [:SEE IF A MINUS SIGN WAS TYPED 
4595 023172 001001 BNE 5 22BR IF NO MINUS SIGN 
459% 023174 112002 MOVB = (RO) +, R2 ':SAVE FOR LATER USE 
4597 023176 112001 2s: MOVB = (RO) +.R1 ::PICKUP THIS CHARACTER 
4598 023200 001424 BEQ 3$ 33GET OUT IF ZERO 
4599 023202 122701 000060 CMPB ss #'0,R1 ‘MAKE SURE THIS CHARACTER 

023206 003032 BGT 5$ ::1S A DIGIT BETWEEN 0 & 9 
4601 023210 122701 000071 CMPB #91 

2 023214 002427 BLT 5$ 

4603 023216 032716 170000 BIT #°C7777,(SP) _: DON'T LET NUMBER GET TO BIG 
4604 02322 1024 BNE 5§ [:BR IF NUMBER WOULD OVERFLOW 
4605 023224 006316 ASL (SP) 33% 
4606 023226 011646 MOV (SP) ,-(SP) sz: SAVE FOR LATER 
4607 0232 006316 ASL (SP ; 33%4 
4608 023232 006316 ASL (SP) 3388, 
4609 023234 062616 ADD (SP)+, (SP) 
4610 025236 102616 BVS 5$ :ZOVERFLOW ISN'T ALLOWED 
4611 023240 162701 000060 SUB #°0.R1 ‘STRIP AWAY THE ASCII JUNK 
4612 023244 060116 ADD R1, (SP) S:ADD IN THIS DIGIT 
4613 023246 N0e61¢ BVS 5 S:OVERFLOW ISN'T ALLOWED 
4614 023250 00075 BR 2$ 33 
4615 023252 005702 3$: TST R2 +: CHECK IF NUMBER IS NEG 
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CZKMEA.P11 20-OCT-81 17:05 READ A DECIMAL NUMBER FROM THE TTY Sea 0091 | 
4616 023254 001401 BEQ 4S ::8R_IF NO 
4617 023256 005416 NEG (SP) SYES==NEGATE THE NUMBER 
4618 023360 012666 000012 4$: MOV —s- (SP)#,12(SP)  22SAVE THE RESULT 
4619 023264 012602 MOVs (SP) #<RD IPOP STACK INTO R2 
4620 053266 013601 MOV «(SP #1 :ZPOP STACK INTO R1 
4621 093270 013600 MOV —s(SP)+RO :IPOP STACK INTO RO 
4622 023272 000002 RTI + TRETURN 
4624 023274 005726 S$: TST  (SP)+ SE CLEAN PARTIAL NUMBER FROM STACK 
4625 023276 105010 CLRB (ROD :ISET A TERMINAT 
4626 023300 104401 TYPE tITYPE THE INPUT UP TO BAD CHAR. 
4627 023302 000000 6$: WORD 0 :SPOINTER,, GOES HERE 
4628 023304 104401 001176 TYPE _, SQUES mr CR RTE 
4629 023310 000720 BR is ZETRY AGAIN 
4630 .SBTTL TYPE ROUTINE 
4632 Is tTitiitititiitiiiiitiitii tit titiiiiitiitiiititiitititi iti ttt 
4633 5 #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 
3, THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
4635 + eNOTET: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER. CHARACTER. 
4636 t eNOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
4637 + *NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
: ee 
4639 *CAL 
4640 +1) LOSING A TRAP INSTRUCTION 
4641 te TYPE  .MESADR :MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
4642 + *OR 
4643 te TYPE 
4644 ie MESADR 
rhe . 
4647 023312 105737 001157 STYPE: TSTB  $TPFLG ::1$ THERE A TERMINAL? 
4648 023316 100002 BPLSséAS FY 
4649 023320 000000 HALT SHALT HERE IF NO TERMINAL 
4650 023322 000407 BR 38 3 LEAVE 
4651 023324 010046 1$: MOV 0.-(SP) *ISAVE RO 
4652 023326 017600 000002 MOV —«sB2tSP) RO tIGET ADDRESS OF ASCIZ STRING 
4653 023332 112046 2$:  MOVB (RO) +, -(SP) ::PUSH CHARACTER TO BE TYPED ONTO STACK 
4654 023334 001005 BNE 4$ “BR IF IT ISN'T THE TERMINAT 
4655 023336 005726 TST —«(SP)+ SE1F TERMINATOR POP IT OFF THE STACK 
4656 023340 012600 60$: MOV (SP)+,RO OR 
4657 023342 062716 000002 3$:, ADD #2, (SP) : ZADJUST RETURN PC 
B 023346 000002 RTI RET 
4659 023350 122716 000011 4$:  CMPB so #HT, (SP) STBRANCH IF <HT> 
023354 001430 BEQ 
4661 023356 122716 000200 CMPBsCRLF., (SP) s:BRANCH IF NOT <CRLF> 
023362 001006 BNE j 
4663 023364 005726 TST —«(SP)+ ::POP <CR><LF> EQUIV 
023366 104401 TYPE <I TYPE ACR AND LF 
4665 023370 001177 SCRLF 
666 023372 105037 023600 CLRB - $SCHARCNT CLEAR CHARACTER COUNT 
4667 023376 000755 BR $ *iGET NEXT CHARACTER 
668 023400 004737 023462 5s: JSR _—«wPC, STYPEC $260 TYPE THIS CHARACTER 
4669 025404 123726 001136 68: (MPa SFALLC.(SP)+ 3:15 1 TIME FOR FILLER. CHARS. 2 
4670 023410 001350 BNE 28 *t]1F NO GO GET HAR. 
4671 023412 013746 001154 MOV «SNULL.=(SP) «::GET“# OF FILLER CHARS NEEDED 


a 


CZKMEAO DMS11=DA DYNAMIC 
CZKMEA.P11 20-0CT-81 17:05 


1 009776 000001 


Bits 


000040 
3 De zees 
000007 023600 


77 =155456 


46 155452 
177600 
000023 


os 


155432 


155426 
177600 
000021 


ANN VS 
en — 
AOAAUN MAO 


$ 


4704 023534 2th 155410 


10037 
4706 023542 116677 00000 
pia tf 023550 122766 00001 


4709 023560 105037 023600 
000012 000002 


155402 
000002 


MACY11 30A(1052) 
TYPE ROUTI 


7$: DECB 
T 


R 
DECB 
BR 


HORIZONTAL TAB 


STYPEC: 


101$: 


102$: 
10$: 


1$: CMPB 


8 
SCHARCNT : .WORD 


STYPEX: RTS 


1(SP) 

6$ 
PC,STYPEC 
SCHARCNT 


PROCESSOR 
#’ (SP) 
PC, $TYPEC 
#7. SCHARCNT 
(SP) + 

2$ 


aSTKS 
10$ 


a$TKB,-(SP) 
#177600, (SP) 
#SXOFF, (SP) 
102$ 


asTks 
hte (SP) 
#SXON, (SP) 
101$ 

(SP) + 


aSTPS 


10$ 
2(SP) ,aSTPB 
CR,2(SP) 


Mr (SP) 
(PC)+ 


PC 


So = APA Bw 
bad oS 





et tat 08:50 ARE 92 


sAND THE NULL CHAR 
::DOES A NULL iid TO BE TYPED? 
;3BR IF “wy A 
3360 TYPE A 
O NOT COUNT" As A COUNT 


THE NULL OFF OF STACK 


7sREPLACE TAB WITH SPACE 
zs TYPE A SPACE 
os ope IF NOT AT 


33 TAB STOP 
:POP SPACE OFF STACK 
33GET NEXT CHARACTER 


+3 CHAR IN KYBD BUFFER? 
IF NOT 


:GET CHAR 
zISTRIP a7 BITS 
a3 AS CHAR XOF 


3sWAIT FOR CHAR 


3sFIX STACK 
z;WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 
3215 i ke A CARRIAGE RETURN? 


dEYES-CLEAR CHARACTER COUNT 
3318 CHARACTER A LINE FEED? 
CH_IF YES 


:;COUNT THE CHARACTER 
22 CHARACTER COUNT STORAGE 


~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DI 


SRTHIS ROUTINE IS USED TO CHANGE A 16-BIT 
; SC11) NUMB DT 


BINARY NUMBER TO A 5-DIGIT 
R YPE it, DEPENDING ON WHETHER THE 
IVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


3 *NUMB POSIT M 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


3* MOV 


3* TYPDS 


: sREPLACED WITH SPACES. 
NUM, = (SP) 


33PUT_THE BINARY NUMBER ON THE STACK 
22G0 TO THE ROUTINE 
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C2KMEA.P11 20-OCT-81 17:05 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0093 
4728 
4729 0 STYPDS: 
47 9 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
4731 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
4 023610 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
4733 023612 010346 MOV —soRBL=CSP) PUSH STACK 
4734 023614 010546 MOV R5.=(SP) +:PUSH RS ON STACK 
4735 023616 012746 020200 MOV #20200,-(SP) | ::SET BLANK SWITCH AND SIGN 
4736 023622 016605 000020 MOV 20(SP) _R5 7:GET THE INPUT NUMBER 
4737 0236 6 100004 BPL 1$ ::BR IF INPUT IS POS. 
4738 0 005405 NEG R5 [MAKE THE BINARY NUMBER POS. 
4739 0 3652 112766 000055 000001 MOVB = # =, 1 (SP) S:MAKE THE ASCII NUMBER NEG. 
4740 023640 005 1$: CLR RO +:ZERO THE CONSTANTS INDEX 
4741 023642 012703 024020 MOV #SDBLK ,R3 ::SETUP THE OUTPUT POINTER 
474 Os3ce8 112723 000040 MOVB #' »(R3)+ szSET THE FIRST CHARACTER TO A BLANK 
4743 023652 005002 2$: CLR R2 SICLEAR THE BCD NUMBER 
4764 023654 016001 024010 MOV SDTBL(RO),.R1 :;GET THE CONSTANT 
4745 023660 160105 3$: SUB R1,R5 ::FORM THIS BCD DIGIT 
4746 023662 002402 BLT 4$ 7 7BR IF 
4747 023664 005202 INC R2 Si INCREASE THE BCD DIGIT BY 1 
4748 023666 000774 BR 3$ 
4749 023670 060105 4$: ADD R1,R5 :zADD BACK THE CONSTANT 
4750 023672 005702 TST R2 SICHECK IF BCD DIGIT=0 
4751 023674 001002 BNE at t:FALL THROUGH IF 0 
4752 023676 105716 TSTB =. (SP) S:STILL DOING LEADING 0°S? 
4753 023700 100407 BMI 7$ [:BR IF YES 
4754 023702 106316 5$: ASLB (SP) 33MSD? 
4755 023704 103003 BCC ::BR IF NO 
4756 023706 116663 000001 177777 MOVB 1(SP),-1(R3) § ::YES=-SET THE SIGN 
4757 023714 052702 000060 6$: BIS #°0,R2 T:MAKE THE BCD DIGIT ASCII 
4758 023720 935008 000040 7$: BIS #* ,R2 szMAKE IT A SPACE IF NOT ALREADY A DIGIT 
4759 023724 11022 MOVB R2,(R35)+ :zPUT THIS CHARACTER IN THE OUTPUT BUFFER 
4760 023726 005720 TST (RO) + ::JUST INCREMENT ING 
4761 023730 020027 00010 CMP RO,#10 S:CHECK THE TABLE INDEX 
4762 023734 002746 BLT 2s 32G0 DO THE NEXT DIGIT 
4763 023736 00300 BGT 8$ +:G60 TO EXIT 
4764 023740 01050 MOV R5,R2 ::GET THE LSD 
4765 023742 000764 BR $:G0 CHANGE TO ASCII 
47 023744 105726 8$: TSTB (SP) + scWAS THE LSD THE FIRST NON-ZERO? 
4767 023746 100003 BPL 9$ +:BR IF NO 
47 023750 116663 177777 177776 MOVB -1(SP) ,-2(R3) :7YES--SET THE SIGN FOR TYPING 
4769 023756 105013 9$: CLRB = (R3) +:SET THE TERMINATOR 
4770 023760 012605 MOV (SP)+,R5 +:POP STACK INTO R5 
4771 023762 912603 MOV (SP)+-R3 ‘:POP STACK INTO R3 
4 : 023764 012602 MOV (SP)+°R2 t:POP STACK INTO R2 
4773 023766 012601 MOV (SP)+-R1 ::POP STACK INTO R1 
4774 023770 012600 MOV (SP)+-RO ‘:POP STACK INTO RO 
4775 023772 104401 024020 TYPE SDBLK :zNOW TYPE THE NUMBER 
4776 023776 01 000002 000004 MOV 3(SP) ,4(SP) ‘ADJUST THE STACK 
4777 026 012616 V (SP)+; (SP) 
4778 024 ‘ RTI szRETURN TO USER 
4779 024010 02542 SDTBL: 10000. 
4780 024012 001750 1000. 
4781 024014 000144 100. 
4782 024016 000012 10. 
4783 024020 000004 SDBLK: .BLKw 4 
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CZKMEA.P11 20-OCT-81 17:05 NARY TO OCTAL (ASCII) AND TYPE SEQ 0094 

pet. -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

4786 FF RRRRAARERAAAAAERAREAEAEERERAERARAREEREREREERREREERAREEEEREEERRERE 

4787 s*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 

4788 s*OCTAL (ASCII) NUMBER AND TYPE IT. 

pth ate HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
3*CALL: 

4791 : MOV NUM ,-(SP) 3 NUMBER TO BE TYPED 

4792 3 TYPOS 3z;CALL FOR TYPEOUT 

4793 3* -BYTE WN 3zN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

4794 3* -BYTE 7zM=1 OR O 

4795 ;* 321=TYPE LEADING ZEROS 

a8 7* 320=SUPPRESS LEADING ZEROS 
;* 

4798 3 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

pits eo bt OR $TYPOC 
*CALL: 

4801 3* MOV NUM,-(SP) 3; NUMBER TO BE TYPED 

1808 3* TYPON 3zCALL FOR TYPEOUT 
3* 

4804 s*STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

4805 37 *CALL: 

4806 3* MOV NUM ,=-(SP) 7 NUMBER TO BE TYPED 

re +34 7* TYPOC 3:CALL FOR TYPEOUT 

4809 024030 017646 000000 STYPOS: MOV a(SP) ,-(SP) 7z:PICKUP THE MODE 

4810 024034 116637 000001 024253 MOVB 1(SP) ,SOFILL 3;LOAD ZERO FILL SWITCH 

4811 024042 112637 024255 MOVB SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

4812 024046 062716 000002 ADD #2, (SP) ;ZADJUST RETURN ADDRESS 

4813 024052 000406 BR STYPON 

4814 024054 112737 000001 024253 S$TYPOC: MOVB #1, SOF ILL 32:SET THE ZERO FILL SWITCH 

4815 024062 112737 000006 024255 MOVB #6, SOMODE +1 73SET FOR SIX(6) DIGITS 

4816 024070 112737 000005 024252 S$TYPON: MOVB #5,SOCNT 3:SET THE ITERATION COUNT 

4817 024076 010346 MOV R3,-(SP) szSAVE R3 

4818 024100 010446 MOV R4,-(SP) 72 SAVE R4 

4819 024102 010546 MOV R5,-(SP) s7SAVE RS 

4820 024104 113704 024255 MOVB SOMODE+1,R4 3:GET THE NUMBER OF DIGITS TO TYPE 

4821 024110 005404 NEG R4 

4822 024112 062704 ADD #6,R4 7zSUBTRACT IT FOR MAX. ALLOWED 

4823 024116 By =A 024254 MOVB R4,SOMODE 7zSAVE IT FOR USE 

4824 024122 113704 024253 MOVB SOFILL,R4 3;GET THE ZERO FILL SWITCH 

4825 0 2i¢8 016605 000012 MOV 12(SP) ,R5 3zPICKUP THE INPUT NUMBER 

4826 024132 005003 CLR R3 3; CLEAR THE OUTPUT, WORD 

4827 024134 006105 1$: ROL R5 szROTATE MSB INTO ‘'C 

4828 024136 000404 BR 3$ 3:60 DO MSB 

4829 024140 006105 2$: ROL RS 72FORM THIS DIGIT 

4830 024142 006105 ROL RS 

4831 024144 006105 ROL R 

4832 024146 010503 MOV R5,R3 

4833 024150 906105 3$: ROL R3 3:GET LSB OF THIS DIGIT 

4834 024152 105337 024254 DECB SOMODE 3: TYPE THIS DIGIT? 

4835 024156 sogors BPL 7$ 33 F NO 

4836 024160 042703 177770 BIC #177770,R3 3:GET RID OF JUNK 

4837 024164 001002 BNE 4$ 33 

4838 Ose 166 005704 TST RS 3: SUPPRESS THIS 0? 

4839 024170 001403 BEQ 5$ 77BR IF YES 


an 
nN 
53 

a 
25 
23 


as 


PRR RRR RRR 


> > 
Wd Rg 
-_ w 
SOSSSSSSOSSS 
hy 
thtatntntnat 


MIMIMINMININON 
SEVNSRRNSRORSAN 


9 024256 
260 


304 
4879 024310 


024312 


94 
4895 024324 


S11=DA preaic 
20-0CT-81 


Sse 


024312 
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C 
117: NARY TO OCTAL (ASCII) AND TYPE SEQ 0095 C 
4$: INC R4 r:DON'T SUPPRESS ANYMORE 0'S 
000060 BIS #°O,R 33MAKE THIS DIGIT ASCII 
0040 5$: BIS w’ ’R MAKE As scl wf NOT ALREADY 
024250 MOVB ~=-R3,, 8S ZISAVE.F YP] 
024250 TYPE £260 Freee THIS DIGIT 
024252 7$: DECB ©: $OCNT S:COUNT BY 1 
BGT es 338R IF MORE TO DO 
INC RG SZ INSURE LAST DIGIT ISN’ T A BLANK 
BR 2$ £:G0 DO THE LAST DIGIT 
6$: MOV (SP)+,R5 T:RESTORE RS 
MOV (SP) +-RG ZERESTORE Ra 
MOV (SP)+-R3 TRESTORE R3 
000002 000004 MOV 2(SP) °4(SP) t:SET THE STACK FOR RETURNING 
MOV (SP) +. (SP) 
RTI RETURN 
8$: .BYTE 0 SISTORAGE FOR ASCII DIGIT 
“BYTE 0 S: TERMINATOR FOR TYPE ROUTINE 
SOCNT: ‘BYTE 0 SI0CTAL DIGIT COUNTER 
SOFILL: :BYTE 0 33ZERO FILL SWIT 


000002 


000030 


024324 


000004 000002 


CH 

SOMODE: :WORD 0 NUMBER OF DIGITS TO TYPE 

~SBTTL TRAP DECODER 

FRAARARARARARAEEREREREEREEREEEERRREEREEREEREREREREEERREREERREREERE 

ZATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP'” INSTRUCTION 
D USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


:*0F ‘HE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 32 SAVE_RO 
MOV 2(SP) RO + 3GET TRAP ADDRESS 
TST =(RO) zBACKUP BY 
MOVB (RO) ,RO 33GET RIGHT BYTE OF TRAP 
CMP #STERM,RO sCHECK FOR OUT OF BOUNDS 
BGT -+6 33 F OK 
HALT 230UT OF BOUNDS 
BR 72 3: sHANGUP 
ASL RO ::POSITION FOR INDEXING 
MOV STRPAD (RO) ,RO : TINDEX TO TABLE 
RTS RO :2:G0 TO ROUTINE 


23THIS IS USE TO HANDLE THE *'GETPRI*’ MACRO 


STRAP2: MOV (SP) ,=(SP) z:MOVE THE PC DOWN 
MOV 4(SP5S ,2(SP) ::MOVE THE PSW DOWN 
t:RESTORE THE PSW 


-SBTTL TRAP TABLE 


2 *THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE “‘TRAP’’ INSTRUCTION. 


: ROUT INE 


$TRPAD: WORD STRAP2 
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CZKMEA.P11 
4896 peeees 
4897 2330 
4898 050339 
4899 Oseate 
4900 024356 
4901 
4902 024340 
4903 
4904 024342 
4905 024344 
4906 024346 
4907 024350 
4908 024352 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 024354 
4936 024356 
4937 024360 
4938 024362 
4939 024 
4940 02437 
4941 024374 
4942 024376 
4943 024402 
4944 024406 
4945 
4946 024412 
4947 024412 
4948 024416 
4949 
4950 024424 
4951 024424 


a3034 


022250 
0¢5160 
Bs<e) 
1504 
055154 
000030 


_—= VW = ON 
WWONNNS 
ANN eo Qe 


—+ 
S $3 
~~ & 
Ww So 
N = 


026244 
026504 
026244 


024360 
024452 


024420 


024356 


MACY11 30A(1052) 
TRAP TABL 


SRDDEC 
STERM=.-S$TRPAD 


KMCNT: 
CONF IG: 


CURTAB: 
SETTAB: 
1$: 


21-0CT-81 
E 


33 CALL=TYPE 
33CALL=TYPOC 
+3 CALL=TYPOS 
ALL=TYPON 
7: CALL=TYPDS 


33 CALL=GTSWR 


32 CALL=CKSWR 
32 CALL=RDCHR 
:2CALL=ROLIN 
32 CALL=RDOCT 
32 CALL=RDDEC 
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TRAP+1 


SSo900 


TRAP +5 (104405) 
TRAP +6 (104406) 
ecsth $44 oy 64M 


SEQ 0096 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING oa 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS BER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


GET SOFT-SWR SETTING 


TEST FOR CHANGE IN SOFT-SWR 

) TTY TYPEIN apa Md ROUT INE 

) TTY TYPEIN STRING ROUTINE 

AD AN OCTAL NUMBER FROM TTY 
) READ A DECIMAL NUMBER FROM TTY 


= ROUTINE USED TO LOAD OR MODIFY THE KMC11 PARAMETER STATUS 1s te 


;TWO ENTRY a gk ra USED 


3 SECOND 


AS THE MODIFY 
: WHEN INITIALLY ENTERED FROM 


ROUTI 


PARAMETER BLOCKS STATUS IS INVOLKED FROM THE CONSOLE TO 
$ OPERATOR MUST INPUT THE FIRST DEVICE ADDRESS INTERRUPT 
E IS TO BE ENABLED OR 


PRIORITY AND WHETHER THE DEVIC 
AFTER THE FIRST KMC11 IS SPECIFIED THE ROUTINE 


ONE sine pate INITIAL START-UP AND T 
THE MONI TOR. ROUTINE THE FIRST 


2DISABL 
3 ENTERS THE CONFIGURE MODE AS SPECIFIED BY THE ASTERISK (*) 
z THE OPERATOR THEN HAS THE FOLLOWING CHOICES OF RESPONSE: 


i NB = 


INCLUDE 
: «Me se xn 
: *A (CR) 
: *E (CR) 
6 
0 
MOV #KMCTAB,R1 
CLR (R1)+ 
CMP R1,4KMCTBE 
BNE 1$" 
MOV #KMCTAB,R1 
MOV’ R1, CURTAB 
JMP 
TMODIFY 
TYPE ,64$ 
MODTAB 
~ASCIZ /22/ 
: TST CONF 1G 


INTERRUPT VEC. + asf 


OPENS T 


HE PARAMETER BLOCK AND_INVOLKS 
THE CHANGE OF STATUS (AFTER INPUTTING STATUS 
STHIS THEN IS LAST BLOCK OPEN) 


sFILLS REMAINDER OF TABLE WITH SUCCESIVE DEV ADR + KINT VEC 
AND IDENTICAL STATUS AS/PER oe (THE LAST STATUS BLOCK 
ENTERED) *NOTE IF ISSUED AS FIRST COMMAND IN ‘MODIFY 

;MODE THE TABLE IS FILLED AS/THE FIRST KMC11. 


sEXITS TO THE CALLING ROUTINE I.E. (MONITOR) 


:# OF KMC11°S ENABLED 


CURRENT BLOCK OPEN 
POINT gh TABLE-BLOCK 1 


3; CLEAN T 
‘DONE? 
*BR=N 


TABLE ROUTINE ENTRY POINT 


73 TYPE ASCIZ STRING 
3i:GET OVER THE ASCIZ 


sFIRST TIME? 


CZKMEAO DMS11-DA DYNAMIC 
CZKMEA.P11 20-0CT-81 


4952 024430 001 

1985 Bie 000137 

4954 0244 

4955 Bsee 
024442 000402 

4958 024450 


rs 

e 

Oo 

iN 

rx 

&- 

a 
o-o— 

R 
“EON 

Oo 

— 


5555555 
g FES 
“SOBNAN 
ht tehetet 
RPK RRS 
Baeesees 
RueEVeERN 
Seexsees 
== WMO =n =f 
NSN ~ 
S & 
N 


4978 024532 005037 
79 024536 012701 
005761 


SES3SS38 
3 3 w IN 
SoVeVowS 
PRORODAR 
AENVOSNOSH 
SS8SnSSSr5 
S=NUSISSO® 
& Soowo=— 
MO =ONUN= WOW 


5 
55 


~ 
ae 
moO 
Sa 


x 
™ 
oOo 


17:05 


024362 
024444 


002320 
002320 
000115 
000101 


026174 
000105 


000123 


024354 
026244 
000002 


024354 
000012 
026504 


002456 


000020 


026232 
024360 
024644 
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TRAP TABLE 


1$: 


;365$: 


64$: 
PT: 


111$: 


112$: 


113$: 
1$: 


2$: 


25$: 


37658: 


BNE 1$ 
JMP SETTAB 
TYPE $38 
eASCIZ <15><12>/*/ 
BR PT+2 
BR 5$ 
RDCHR 
V (SP) , CHRADR 


-C 
CMP #115, (SP)+ 


BEQ $ 

CMP #101,-(SP) 
BNE 111$ 

JMP 12$ 

CMPB ss #105, (SP) + 
BEQ 113$ 

CMP #°S,-(SP) 
BEQ 112$ 

TST (SP) + 

BR TR 


MOV #KMCTAB,R1 
2(R 


RTS PC 


RDDEC 

MOV (SP)+,RO 
MOV RO,CUNIT 
MOV RO,R1 
BLE TR 
CMPB RO.#16. 
BGT NOTR 

CLC 

ROL RO 

MOV RO,R2 
ROL R 

ROL R 

ADD 


MOV 
TYPE 65$ 


4$ 33GE 
eASCIZ <15><12>!(DEV.ADR.) (ENABLE) 


;BR=NO 


zz TYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


GET FIRST SETUP 


2 ECHO 

:1S IT AM? 
2BR=YES 

IS IT AN A? 
IS IT AN E? 
:B=Y GO! 

2AN S$? 

3B=YES 

NO TRY AGAIN 


71S # +? 
:PRINT LINE UNIT # 


31S #<16.? 

;BR=NO 

FORM OFFSET INTO ‘KMCTAB’’ 

; RO = 2 X LINE NUMBER 

; R2=8X Line NUMBER 

3: OFFSET = 12(OCTAL) X LINE NUMBER 


z3TYPE ASCIZ STRING 


T OVER THE ASCI 





(CRCS2-MODE) (EX/IN-VEC) (LINES-PRI) 


SEQ 0097 


UN 
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ane) 
5068 


024752 


024752 
024752 
024756 


058070 
025120 


025132 
025156 


025170 
025174 


025226 


025240 
025240 


104405 
013701 
104401 
000407 


004737 
104401 
000413 


024760 


000005 


025004 


002456 
024360 


025042 


026070 
025072 


026104 
025134 


026104 


025176 


026104 


025246 
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TRAP TABLE 


64$: 


3$: 


:;67$: 


66S: 
4$: 


:69$: 


68s: 
45$: 


5$: 


+s: 


-73$: 


o5$: 


;75$: 


ois: 


:77$: 


+s: 
116$: 


117$: 





:71$: 


H 8 
21-OCT-81 08:50 PAGE 98 Ci 
SEQ 0098 C 


ROUTINE TO DISPLAY CONTENTS OF CURRENT BLOCK 


TYPE 67$ sz TYPE ASCIZ STRING 
6$ 3i:GET OVER THE ASCIZ 
eASCIZ <15><12>/ / 


MOV #5,R3 

MOV (RO) +,=(SP) 

TYPOS 

.BYTE 6 

“BYTE 1 NO SUPPRESS 

TYPE ,69$ ‘TYPE ASCIZ STRING 
BR 68$ t:GET OVER THE ASCIZ 
~ASCIZ / / 

DEC R3 

BEQ 45$ 

BR 4$ 

MOV CUNIT,-(SP) 

TYPDS 

MOV CURTAB,R1 

;ROUTINE TO MODIFY PARAMETER BLOCK 

TYPE 71$ zi: TYPE ASCIZ STRING 
BR 0$ 33GET OVER THE ASCIZ 
eASCIZ <15><12>/DEV.ADR.= / 

JSR PC,8$ 

TYPE 73$ ii TYPE ASCIZ STRING 
BR 2$ T OVER THE ASCIZ 
“ASCIZ /(1)ENABLE(O)DISABLE / 

JSR PC,10$ 

INC RI :BYPASS UNUSED BYTE 
TYPE 75$ 33 TYPE ASCIZ STRING 
BR 43 T LOVER THE ASCIZ 
VASCIZ <15><12>/(1) BOP tise 

JSR PC,10$ 

TSTB. 3s = (R11) ZCHECK FOR CCP MODE 
BPL 116$ ‘IF YES, SKIP NEXT ENTRY 
INC R1 SRESTORE TABLE POIN TER 
TYPE 77$ zi TYPE ASCIZ STRING 
BR 6$ “GET OVER THE ASCI2Z 
"ASCIZ <15><12>/(1)CRC=$2 (ONO C 

JSR PC,10$ 

BR 117$ :CONT. TO NEXT ENTRY 
INC R1 SRESTORE TABLE POINTER 
CLRB=s (R1)+ [IF CCP, SKIP CRC ENTRY: BUT UPDATE POINTER 
TYPE ,79$ ::TYPE ASCIZ STRING 
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5064 025244 000410 BR 78$ -;GET OVER THE ASCIZ 
5065 -:79$: .ASCIZ <15><12>/DEV.VECTOR= / 
5066 025266 78s: 
5067 025266 004737 026022 JSR PC,7$ 
5068 025 : 118$: 
5069 025272 104401 025300 TYPE 81$ z:TYPE ASC1Z STRING 
5070 025276 000410 BR 80$ t:GET OVER THE ASCIZ 
5071 -:81$: .ASCIZ /(1)EXT.CODINT. 7 
5072 025320 bs: 
5073 025320 004737 026104 JSR PC,10$ 
5074 025324 105741 103$: TSTB =(R1) zIF INTTERNAL OVERRIDE CRC32 
5075 025326 100432 BMI 104$ " B=EXTERNAL 
5076 025330 105761 177775 TSTB = = 33(R1) :BOP MODE?? 
5077 025334 001427 BEQ 104$ *B=NO 
5078 025336 105761 177776 TSTB = =2(R1) 7CRC-32 ENABLED? 
079 025342 001424 BEQ 104$ [B=NO 

025344 105061 177776 CLRB = = 2(R1) ZOVERRIDE CRC32 
5081 025350 104401 025356 TYPE 83$ r:TYPE ASCIZ STRI 
5082 025354 000417 BR 823 +°GET OVER THE ASCIZ 
5083 -:83$: .ASCIZ / (WARNING) NO CRC-32 TESTING/ 
5084 025414 82$: 
5085 025414 105721 104$: TSTB  (R1)4 sRESTORE R1 
5086 025416 104401 025424 TYPE 85$ r:TYPE ASCIZ STRING 
5087 025422 000411 BR 4$ t:GET OVER THE ASCIZ 
5088 -:85$: .ASCIZ <15><12>/INT.PRI.(4-7)= / 
5089 025446 4S: 
5090 025446 104412 RDOCT 
5091 025450 105766 000001 TSTB =: 1( SP) :HIGH BYTE=0? 
5092 025454 001053 BNE 137$ [B=NO 
5093 025456 012600 MOV (SP)+,RO 

025460 001411 BEQ 136$ :B=NO CHANGE 
5095 025462 042700 177760 BIC #177760,RO ‘SAVE LOW BYTE 
5 025466 122700 000010 CMPB sso #'19,RO SLEGAL #? 
5097 025472 003445 BLE 138$ :B=N 
5098 025474 122700 000003 CMPBs«#'3.. RO 
5099 025500 002042 BGE 138$ :B=NOT LEGAL 
5100 025502 110011 MOVB RO, (R1) ‘STORE THE PRIORITY 
2102 958806 100401 025514 ime: re le TYPE ASCIZ STRING 
2108 025512 000425 BR 86$ ::GET OVER THE ASCIZ 
5104 -:87$: .ASCIZ /LINES(O-7)(1.E..4,4,4) OR (A)ALL(N)NONE / 
5105 025566 86S: 
5106 025566 004737 025620 JSR PC,6$ 
5107 025572 012737 177777 024356 MOV #-1, CONFIG 
5108 025 000137 024424 JMP MOD; AB 
5109 025604 005726 137$: TST (SP) + :POP STACK 
5110 025 104401 001177 138$: TYPE  ,$CRLF 
5111 025612 104401 001176 TYPE SQUES 
3112 025616 000676 BR 104$ 
5113 025620 104411 6$: RDLIN 
5114 025622 012600 MOV (SP)+,RO :GET TTY BUFFER 
5115 025624 10 710 TSTB. = (RO?) SANY CHANGE IN STATUS? 
a119 958080 Tigeit 177777 RL er ‘SET TO ALL LINES ENABLED 
5118 025634 122710 000101 CMPB so #*A. (RO) STEST FOR ALL LINES 
5119 025640 001466 BEQ 1108 [B=ENABLE ALL LINES 
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5120 025642 195011 CLRB ss (R11) :SET TO NO LINES 
5121 025644 122710 000116 CMPB so #"N (RO) ‘IT IT N FOR NO LINES 
3128 025650 00146 BEQ 110$ :B=YES NO LINES ENABLED 
5123 025652 112037 001160 107$: M0 (RO) +,$TMPO : DONE? 
5124 025656 001457 BEQ 110$ *B=YES 
3125 025660 122737 000054 001160 CMPB ss #54, STMPO tA COMMA? 
5126 025666 001771 BEQ 107 ‘B=YES (ONLY A SEPARATOR) 
5127 025670 le37er 001160 000060 CMPB = $TMP0, #60 SONLY 0-7 ARE VALID 
5128 025676 0024 3 BLT 130$ ‘B=NOT VALID 
5129 025700 123727 001160 000067 CMPB  =s- $TMP0, #67 ‘LESS THAN 7? 
5130 025706 003017 BGT :B=NOT VALID 
5131 025710 142737 0 001160 81(B  #360,$TMPO ‘SAVE ONLY OCTAL DIGIT 
5132 025716 105237 001160 INCB TMPO 
5133 025722 01270¢ 000200 MOV #200,R2 ZINIT MASKING BIT 
5134 025726 105337 001160 108$: DECB $TMPO ‘FIND BIT POSITION OF ENABLED LINE 
5135 025732 001403 BEQ 109$ :B=FOUND IT 
5136 025734 006202 ASR R2 [NEXT LINE BIT 
5137 025736 001373 BNE 108$ 
5138 025740 000402 BR 130$ Z INVALID CHAR. 
5139 025742 150211 109$: BISB  R2,(R1) [SET BIT FOUND (THIS LINE ENABLED) 
5140 025744 000742 BR 107$ STRY AGAIN 
5141 025746 130$: 
5142 025746 104401 025754 TYPE 89$ si TYPE ASCIZ STRING 
5143 025752 000417 BR 88s =*GET OVER THE ASCIZ 
5144 -:89$: .ASCIZ /<15><12>SYNTAX ERROR<15><12>/ 
5145 026012 Bs: 
5146 026012 000137 025620 JMP 6$ :TRY AGAIN 
5147 026016 005201 110$: INC R1 :MOV TO NEXT BYTE 
5148 026020 000207 RTS PC + & RETURN TO MAINLINE 
5149 026022 104412 7$: RDOCT 
5150 026024 012600 MOV (SP)+,RO 
5151 026026 042700 176000 BIC #176000,R0 :SAVE ONLY VECTOR 
5152 026032 001405 BEQ 131$ [B=NO CHANGE 
5153 026034 011103 MOV (R1) ,R3 ‘SAVE ONLY E/I BIT 
5154 026036 042703 077777 BIC #077777, R3 :STRIP OLD VECTOR 
5155 026042 050300 BIS R3,R ‘RETURN E/I BIT 
5156 026044 010011 MOV RO. (R1) ‘STORE NEW DATA 
5157 026046 062701 000001 131$: ADD #1.R1 
5158 026052 900207 RTS PC 
5159 026054 005726 132$: TST (SP)+ :POP STACK 
5160 026056 104401 001176 TYPE »SQUES ;HIGH BYTE NOT =0 
5161 026062 104401 001177 TYPE SCRLF 
516¢ 26066 000755 BR 
5163 026070 104412 8$: RDOCT 
5164 026072 012600 MOV (SP)+,RO :CHANGE STATUS? 
5165 026074 001401 BEQ 9 *B=NO 
5166 026076 010011 MOV RO, (R1) [LOAD DATA 
5167 026100 005721 9$: TST (R1)+ 
5168 026102 000207 RTS PC 
5169 :91$: RDOCT 
5170 : MOV (SP)+,RO :STATUS CHANGE? 
5171 : BEQ 9 B=NO 
5172 : MOVB ~—— RO, (R1) SLOAD DATA 
5173 792$: TSTB  (Ri)d+ 
517% : RTS PC 
5175 026104 104410 10$:  RDCHR 


oOo 
ae 
> 


K 


PU PV PV PV PUPS SVS SSSA STASI AAI 
eh ee ee ee eet ed ee ee a ee ed ed ed ed 
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5200 


a 
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026146 
026152 


026172 


026174 


026236 
026242 


026244 
026244 
0 


Bes 
SaSoNGs 


SEV VS 


ooo 
par Geert 


17:05 

000015 
002320 
002320 
000060 


000061 
026150 


000200 
000200 


024360 


000012 
026504 


024360 


024424 
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14$: 
15$: 


KMCTAB: 


MOV 
MPB 


-ASCIZ 
BR 
BISB 
BICB 
BR 

INC 


K 8 
ae 08:50 PAGE 101 


(SP)+,RO 
#15,R6 
14§ 
RO, CHRADR 
, CHRADR 
#60.RO 
11$ 
#61,R0 
105$ 
91$ 
$0s 
17/ 
10$ 
#200, (R1)+ 
#200, (R1)+ 
115$ 


R1 


SEQ 0101 


31? 


zs TYPE ASCIZ STRING 
3sGET OVER THE ASCIZ 


TS PC 
sAN “A’" WAS DETECTED SET REMAINING BLOCKS WITH SUCCESSIVE 
zPARAMETERS (BASED) AS LAST BLOCK OPEN ‘‘CURTAB’’. 


JMP 


0 
3KMC11 PARAMETER BLOCKS 


(SP) + 
CURTAB,RO 


RO,R1 
#12,R1 
R1,4KMCTBE 
14$ 

(RO)+, (R1)+ 


MOD TAB 


GET CURRENT BLOCK 


3AT END? 

;B=Y 

7GET NEW D.A. 

[LOAD ENABLE 

[LOAD MODE, CRC32 STATUS 


LOAD VECTOR, E/I STATUS 
7SAME PRIORITY AND LINE BYTE 


sPARAMETER BLOCK FOR _KMC#01 


KMCRO1: sCONTROL + STATUS REGISTER FOR ogi . 
KMCEO1: ;LO BYTE=ENABLE SeOzaTes Gan) 5h 
KMCVO1: 0 LO BYTE=MODE (200=B0P,0=CCP) HI UBYTE=CRCS(200=VES, 0=NO) 
KMCPO1: 0 :LO BYTE= oe VECTOR ADDR. HI=E/1(200=EXT O=IN 
KMCSO1: 0 :LO BYTE=INT.PRI. HI BYTE=LINE BYTE 
; PARAMETER BLOCK’ FOR KMC#02 
KMCRO2: sCONTROL + ha REGISTER FOR KMC11 #02 
KMCEO ;LO BYTE=ENABLE Te ts ES,0=NO);HI BYTE UNU 
KMCVO2: 0 ;LO BYTE=MODE (200=B0P,0=CCP) HI BYTE= cRC33( 200165, 0=NO) 
KMCPO2: 1 BYTE=INT. VECTOR ADOR, oHISE/1 CeDOsEX T O=INT) 
cs aon -PRI. HI BYTE=LINE BYTE 


KMCSO2: 
; PARAMETER BLOCK’ FOR KMCA 








C2 
C2 


PADMA MNVIV 
rrororororerers 


02 
026310 
026312 


026314 


0 
026350 
026352 


026374 
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KMCRO3: sCONTROL + I REGISTER FOR gh A 
KMCE03: LO BYTE=ENABLE (200=YES,0=NO) ;H E see 
KMCV03: ;LO BYTE=MODE- (2002807. O=CCP) iit. VYESCR < (cOpeves. O=NO) 


5 
oO 
Uv 
So 
i=] 


f :LO BYTE=INT.VECTOR ADDR. ,HI=E/1( (oom EXT O=IN 
KMCSO03: 0 :LO_ BYTE=INT.PRI. HI BYTE=LINE BYTE 
incneae Be BLOCK’ FOR KMC#04 

CRO4: CONTROL + STATUS Sbertere FOR agp #04 


0 

KMCE OS: 0 3LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNU 
KMCV04: 0 :LO BYTE=MODE (200=B0P, bcc CCP) iit BYTE= cRC33(200VES, 0=NO) 
KMCPO4: 0 sl YTE=INT. VECTOR ADDR. -HI=E 200=EXT O=IN 
KMCS04: 0 LO BYTE=INT.PRI. HI BYTE=LINE BYT 
;PARAMETER BLOCK FOR KMCA05 
KMCROS: 0 sCONTROL + STATUS REGISTER FOR ~ opp #05 
KMCEO5: 0 3LO BYTE=ENABLE ( (200=YES, ror ia I BYTE UNU 
KMCVO5: 0 :LO BYTE=MODE (200=BOP,0=CCP) iit BYTESCRCS2(2O0=YES, 0=NO) 
KMCPO05: 0 :LO BYTE=INT. VECTOR ADDR. ,HI=E/I( 200=EXT G=IN 
KMCSO5: 0 :LO BYTE=INT.PRI. HI BYTE=LINE BYTE 

iene, BLOCK’ FOR KMC#06 

CRO6: 0 CONTROL + STATUS REGISTER FOR ag. ont 

KMCE OG: 0 3LO BYTE=ENABLE (20 rig H 
KMCV06: 0 :LO BYTE=MODE (200=80P, HI BYTESCRCS2(200- YES ,0=NO) 
KMCP06: 0 18 prreetne” VECTOR ADDR. SHI=E/I 200=EXT O=] 
KMCS06: 0 BYTE=INT.PRI. HI BYTE=LINE BYTE 

;PARAMETER BLOCK “FOR KMC#07 
KMCRO7: 0 rg + STATUS REGISTER FOR KMC11 #07 

CEO7: 0 O BYTE=ENABLE (200=VES,0=NO);HI BYTE UNUSE 
KMCVO7: 0 ‘LO BYTE=MODE (200=80P,0=CCP) HI BYTESCRCS2(2O0=YES, 0=NO) 
KMCP07: 0 18 BYTE=INT.VECTOR ADDR. ,HI=E/1(200=EXT O=IN 
KMCSO7: 0 O BYTE=INT.PRI. HI BYTE=LINE BYTE 

;PARAMETER BLOCK FOR KM KMC#08 
KMCROB: 0 CONTROL + ag be REGISTER FOR gh #0 
KMCE08: 0 3LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNU 
KMCVO8: 0 ;LO BYTE=MODE (200=80P,0=CCP) iit BYTE= cRC33(200=¥ES, 0=NO) 
KMCPO8: 0 3LO BYTE=INT.VECTOR ADDR. ,HI=E/1(200=EXT O=IN 
KMCSO8: 0 iL BYTE=INT.PRI. HI BYTE=LINE BYTE 
3PARAMETER BLOCK FOR KMC#09 
KMCRO9: 0 CONTROL + Ly REGISTER FOR eg #09 
KMCEO9: 0 3LO pL ae (200=YES, roe i I BYTE UNU 
KMCVO9: 0 3LO BYTE=MODE (200=B0P, 0=CC A BYTESCRCSe(200-VES, 0=NO) 
KMCPO9: 0 3LO BYTESINT. VECTOR ADOR. SHI=E/L 200=EXT O=1 
KMCSO9: 0 ;LO BYTE=INT.PRI. HI BYTE=LINE BYTE 
;PARAMETER BLOCK FOR KMC#10 
KMCR10: 0 + CONTROL + STATUS REGISTER FOR KMC11 #10 
KMCE10: :LO BYTE=ENABLE Shaor 8 foun) tl BYTE SED 
KMCV10: :L0 BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC32(200=VES.0=NO) 
KMCP10: O BYTE=INT.VECTOR ADDR. .HI=E/1(200=EXT O=INT) 


$10: to BYTE=INT.PRI. HI BYTE=LINE BYTE 
;PARAMETER BLOCK FOR KMC#11 


KMCR11: 0 CONTROL + a REGISTER FOR KMC11 #11 
KMCE11: 0 3LO BYTE=ENABL =YES,0=NO);:HI BYTE 
KMCV11: 0 O BYTE=MODE (20 =B0P, O=CCP) HI BYTE=CRC C83 200-765, 0=NO) 
aly :L0 BYTE=INT. VECTOR ADDR. -HI= =E/1(200=EXT O=INT) 
KMCS O BYTE=INT.PRI. HI BYTE=LINE BYTE 
SPARAAETER BLOCK’ FOR KMC#12 
Rig: 3 sCONTROL + STATUS REGISTER FOR KMC11 #12 
KMCEI 0 LO BYTE=ENABLE (200=YES,0=NO);HI BYTE UNUSED 


SEQ 0102 
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5288 026426 000000 KMCV12: 0 ;LO BYTE=MODE (200=80P,0=CCP) HI YTE=CRC32(200=VES.0=NO) 

89 026430 000000 KMCP12: 0 :L0 BYTE=INT. VECTOR ADOR. ,HI=E/1(200=EXT O=IN 
5290 026432 000000 KMCS12: 0 O BYTE=INT.PRI. HI BYTE=LINE BYTE 
5291 “PARAMETER BLOCK’ FOR KMC#13 
5292 026434 000000 KMCR13: 0 : CONTROL + STATUS REGISTER FOR KMC11 #13 
5293 026436 000000 : 0 BYTE=ENABLE (200=YES,0=NO);:HI BYTE UNUSED 
5294 026440 000000 KMCV13: 0 to BYTE=MODE (200=B0P,0=CCP) HI BYTE=CRC32(200=YES,0=NO) 
5295 026442 000000 KMCP13: 0 :LO BYTESINT. VECTOR ADDR. .HI<E/1(200=EXT O=INT) 
5296 0266444 000000 KMCS13: 0 [LO BYTESINT.PRI. HI BYTE=LINE BYTE 
5297 ; PARAMETER BLOCK’ FOR KMC#14 
5298 026446 000000 KMCRI4: 0 SCONTROL + STATUS REGISTER FOR KMC11 #14 
5299 026450 000000 RACE TG: 0 [LO BYTE=ENABLE (200=YES,0=NO):HI BYTE 
5300 026452 000000 KMCV14: 0 [LO BYTE=MODE (200=80P, O=¢cP) Hl BYTE=CRC C82 (200-¥ES, O=NO) 
5301 026454 600000 KMCP 14: 0 :L0 BYTE=INT.VECTOR ADDR. ,HI=E/1 (200=EXT O=IN 
5302 026456 00 KMCS14: 0 O BYTE=INT.PRI. HI BYTE=LINE BYTE 
5303 ; PARAMETER BLOCK’ FOR KMC#15 
5304 026460 000000 KMCR15: 0 ;CONTROL + STATUS REGISTER FOR KMC11 #15 
5305 026462 000000 KMCE15: 0 [LO BYTE=ENABLE (200=VYES,0=NO);:HI BYTE 
5306 026464 000000 KMCV15: 0 [LO BYTE=MODE (200=80P,0=CCP) HI BYTE=CRC 2 (200=¥ES,0=N0) 
5307 026466 000000 KMCP15: 0 3LO BYTE=INT.VECTOR ADDR. ,HI=E/1(200=EXT O=INT) 
5308 026470 000000 KMCS15: 0 =LO BYTE=INT.PRI. HI BYTE=LINE BYTE 
5309 ;PARAMETER BLOCK’ FOR KMC#16 
5310 026472 000000 KMCR16: 0 :CONTROL + STATUS REGISTER FOR act #16 
5311 026474 000000 KMCE16: 0 [LO BYTE=ENABLE (200=VES,0=NO);HI BYTE UNU 
5312 026476 000000 KMCV16: 0 ?LO BYTE=MODE {200-BOP~ 0=CCP) in BYTE= cRC32(200=VES, O=NO) 
5313 026500 000000 KMCP16: 0 [LO BYTE=INT.VECTOR ADDR. ,HI=E/1(200=EXT O=IN 
asig 026502 000000 KMCS16: 0 3LO BYTE=INT.PRI. HI BYTE=LINE BYTE 
3316 026504 000000 KMCTBE: 0 
5318 026506 013701 024360 GETKMC: MOV CURTAB,R1 :GET CURRENT TABLE POINTER 
5319 026512 062701 000012 1$: ADD #12,R1 
5320 026516 020127 026504 CMP R1,4KMCS16+2 :@ END OF TABLE? 
5321 026522 001004 BNE 2$ “B= 
5322 026524 012737 026232 024360 MOV #KMCTAB-12, CURTAB 
5323 026532 000207 RTS PC 
5324 026534 105761 000002 2s: TSTB = 2(R1)—_; ENABLED? 
5325 026540 100364 BPL 1$ 

6 026542 010137 024360 MOV R1,CURTAB :NOW POINTING TO CURRENT 
5327 026546 012702 002260 MOV #SELO,R2 :POINT TO DEVICE REGISTER POINTERS 
5328 026552 012104 MOV (R1)+.R4 “GET KMC CSRO 
5329 026554 012705 000010 MOV #8. .R5 78 REGISTERS 
5330 026560 010422 25$: MOV R4.(R2)+ 
5331 026562 005204 INC RG 
5332 026564 005305 DEC RS 
5333 026566 001374 BNE 25$ :BR=NO 
5334 026570 062701 000002 ADD #2,R1 ‘SKIP ENABLE ENTRY 
5335 sLOAD THE MODE 
5336 4026574 112137 002311 MOVB (R1) + MOD 
5337 026600 112137 002314 MOVB  (R1)*,CRC32F = ; LOAD _ CRC-32 STATUS 
5338 :LOAD VECTOR ADDRESSES 
5339 026604 011112 MOV (R1), (Re) LOAD INPUT VEC TOR 
5340 02 042722 100000 BIC #100600 (R2)+ T WORD & CLR JUNK 
5341 026612 011118 MOV Ri (RO) LOAD output VECTOR 
5342 026614 062712 000004 ADD fa). 7+4=QUTPUT VECTOR ADDR. 
5343 026620 042722 100000 BIC Heck (R2)+ STRIP E/I BIT 


on 
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5344 026624 105721 TSTB —s- (R11) + :NEXT BYTE 

5345 026626 012737 000200 002316 MOV #200, CLKDAT TINT. + CLK 

5 026634 105721 TSTB ss (1) + SINT? 

5347 026636 1 3 BPL 6$ [B=YES 

5348 026640 beers 000200 002316 BIC #200, CLKDAT ZMAKE IT EXT. 

5349 026646 26S: 

5350 026646 112112 VB (R1) +, (R2) : INPUT PRIORITY 

5351 026650 106112 ROLB = (R2) [MAKE SAME AS P.S.WORD 

5352 026652 106112 ROLB = (Re) 

5353 026654 106112 : ROLB = (Re) 

5354 026656 106112 ROLB (Ro) 

5355 02 logite ROLB 

3356 026662 162712 000040 SUB #40, (R2) ZINT OCCURS @ LEVEL BELOW PROC. 
5357 026666 012212 MOV (R25+, (R2) ‘OUTPUT PRIORITY 

5358 026670 111137 002312 mMOVB (R1),LINEB ZLOAD LINE BYTE 

5359 026674 012702 000001 MOV #1 ,Re 

5360 026700 013700 024360 MOV CURTAB,RO :FIND UNIT# 

5361 026704 162700 026244 SUB #KMCTAB,RO 

3362 026710 001405 BEQ 4$ 

5363 026712 005202 3$: INC R2 

5364 026714 162700 000012 SUB #12, RO 

5365 026720 001401 BEQ 4$ 

5366 026722 000773 BR 3$ 

5367 026724 110237 002456 4$: MOVB  =R2, CUNIT ZCURRENT UNIT # 

5368 026730 062716 000002 ADD #2. (SP) 

5369 026734 000207 RTS PC 

3370 .SBTTL ROUTINE TO SIZE MEMORY 

5372 SF AARAAERAEAEREEEEREREREEEEREREERERERAEREREREREEERERERERAEEREREEEEE 
5373 T*CALL: 

5374 ie JSR PC, $SIZE 

5375 te RET 

5376 s*S$LSTAD WILL CONTAIN: 

5377 3* WITH KT11 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 
5378 8 WITHOUT KT11 OPTION -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 
5379 :*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF 

5380 3*$KT11 IS THE MEMORY MANAGEMENT KEY 

5381 :*BIT07 = 0 DON'T USE MEMORY MANAGEMENT 

5382 8 MUST BE SETUP BEFORE THE CALL 

5383 [*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION 

2384 7* DETERMINED BY ROUTINE 

5386 026736 010046 $SIZE: MOV RO,-(SP) r:SAVE RO ON THE STACK 

5387 026740 010146 MOV R1.-(SP) S:SAVE Ri ON THE STACK 

5388 026742 010246 MOV Re.~(SP) S:SAVE R2 ON THE STACK 

5389 026744 010346 MOV R3,-(SP) 3: ON THE STACK 

5390 026746 010446 MOV R4.-(SP) T:SAVE RG ON THE STACK 8K001 
5391 026750 013746 000114 MOV a#i14,-(SP) +:SAVE MEMORY ERROR VECTOR PS & PC 
2395 O5ere0 BISes> boptie 000194 mov ster alte. IGNORE PARITY ERRORS WHILE SIZING 
5394 026766 016737 000002 000116 MOV #RT1, 08116 

5395 026774 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE PRESENT ERROR VECTOR PS & PC 
5396 027000 013746 000006 MOV a#ERRVEC+2,=(SP) 

5397 027004 010600 MOV SP,RO ::SAVE THE STACK POINTER 

5398 zzSET THE ERRVEC PS TO THE PRESENT PS 

5399 027006 104400 TRAP :2PUSH OLD PSW AND PC ON STACK 


9 
MACY11 30A(1052) ort penon OS: 50 BpaGe 105 


KMEAO DMS11-DA DYNAMIC 
KMEA.P11 20-OCT-81 17:05 ROUTINE TO SIZE ME SEQ 0105 
00 027010 012637 MOV (SP) +, a#ERRVEC+2 :SAVE THE PSW IN @#ERRVEC+2 
are 8 7014 01 $ 1 sista MOV aB776m1 338 Ser uP ABDRESS 
3408 9670 105727 TST8 MEMORY MANAGEMENT 
0 7022 000 $KT11:  .WORD 200 33 ‘Set TO USE MEMORY RANAGEMENT 
5404 927084 10014 BPL ORE 7BR IF NO 
5405 2086 127 0273 ete 000004 MOV #SKTNEX, @#ERRVEC® “3gSET FOR TIMEOU 
5406 027034 005737 177 TST SRO :kT11 ARE YOU SU ERE? 
5407 027040 052737 100000 027022 BIS 11 +I YES=<SET KT11 KEY 
5408 027046 012737 927076 000004 MOV #100 $ BS ObERRVEC 33SET FOR TIMEOUT 8K001 
5409 027054 005737 170200 TST 79900 BUS MAP ARE YOU THERE? 8K001 
5410 027060 012737 176200 027116 MOV , 62 aeSsTOP ::YES-SET COMPARISON VALUE FOR 11/70  B8K001 
5411 027066 012737 000200 027114 MOV #200, a# $MAP =: TURN ON MAP INDICA TOR BK001 
3418 027074 000471 BR SHAPhe 7:60 SET UP MAP REGISTE 8K001 
541 927076 012737 006200 027116 100$: MOV #6200, a#$STOP ::COMPARISON VALUE FOR ‘3 BIT MAPPING ®8K001 
5414 027104 022626 CMP (SP) +, (SP)+ TICLEAN OFF STACK BK001 
5415 927106 005037 027114 CLR axSMaP 7:MAKE SURE MAP INDICATOR TURNED OFF § BKO001 
5416 027112 000412 BR $NOMAP 33 BK001 
5417 027114 000000 «WORD 0 =200 IF MAP PRESENT BK001 
5418 027116 000000 $STOP: .WORD 3 FILLED WITH APPROPRIATE COMPARISON VALUE 8K001 
5419 027120 012703 000037 : MOV UP COUNTER BK001 
5420 027124 012702 170200 MOV #170600, R2 3 gSTART WITH H APL 0 8K001 
5421 027130 005022 100$: CLR (R [LOAD ALL REGISTERS BK001 
3422 027132 012722 000074 MOV RP (R2)+ z3WITH THE VALUE 17000000 BK001 
5423 027136 077304 $08 R3, 100$ ::D0 ALL 31 REGISTERS BK001 
5424 027140 SNOMAP : 
25 027140 005046 CLR -(SP) i INITIALIZE FOR ‘PAR’ LOADING 
5426 027142 012702 172340 MOV #KIPARO, R2 ADDRESS OF FIRST "PAR" ; 
5427 027146 012703 000010 MOV D8,R3 3 sLOAD EIGHT ‘PAR.°S’’ AND EIGHT ‘PDR.'S*’ 
28 027152 012762 077406 177740 1S: MOV a77ebe: =40(R2) 3;PDR = 4K, UP, READ/WRITE 
5429 027160 011622 MOV P), (R2)+ SLOAD ‘PAR’ - 
5430 027162 062716 000200 ADD #200, (SP) ; {UPDATE FOR NEXT “PAR 
5431 027166 077307 $08 SLOOP UNTIL ALL EIGHT ARE LOADED 
32 027170 012742 177600 MOV #197600,-(R2) :3 SETUP KIPAR7 FOR 1/0 
5433 027174 00504 CLR - ::SETUP KIPAR6 FOR TESTING 
434 027176 01273 027214 000004 MOV W2$,aMERRVEC CATCH TIMEOUT IF NO SR3 
5435 027204 012737 000060 172516 MOV #60, a#SR3 3ENABLE 22 BIT MODE AND UNIBUS MAP Bk001 
3 027212 000401 BR t:THIS PDP-11 HAS A SR3 REGISTER 
5437 027214 022626 2$: CMP (SP)+, (SP)+ z3CLEAN OFF THE STACK=-NO SR3 
38 027216 005237 177572 3$: INC MEMORY MANAGEMENT 
5439 027222 012737 027270 000004 MOV #SKTOUT @#ERRVEC ::SET FOR TIME OUT 
0 027230 105737 027114 TSTB © a#*SMAP is MAP THERE? Bk001 
5441 027236 100006 BPL $ 3 3NO~SKIP Bk001 
2448 027236 o127 027312 000114 MOV ASMMOUT,@4114 :SET UP MEMORY ERROR VECTOR 001 
027244 013737 000116 MOV arenas cee, ,@4116 ::LOCK OUT INTERRUPTS Bk001 
5444 027252 005737 143776 4$: TST z: TRAP ON NON-EX-MEM 
5445 027256 O6er12 000040 ADD #40, (R2) *:MAKE A 1K STEP 
5446 027262 08 712 027116 CMP @#SSTOP,(R2) ::LAST ONE? 
5447 027266 101371 BHI szNO--TRY I 
5448 027270 011202 $KTOUT: MOV (R2) .R2 S:GET LAST BANK+1 
5449 027272 005037 177572 CLR avsrb +: TURN OFF MEMORY MANAGEMENT 
5450 027276 105737 027114 TST8 a@aSMAP 331 MAP THERE? Bk001 
5451 027302 100034 BPL $S1ZEX *NO-SKIP BK001 
3452 027204 005037 172516 CLR avsR ¢:TURN OFF MAP Bk001 
5454 027312 013704 177744 SMMOUT: MOV aH 7744 R4 Z:SAVE MEMORY ERROR REGISTER BK001 
5455 027316 010437 177744 MOV a#177744 [CLEAR BITS IN REGISTER Bk001 
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027022 
000004 


027022 


007540 
027450 


002336 


R 
SKTNEX: 
SCORE: MOV 


18: 


SCROUT: 
SSIZEX: 


R 
SLSTAD: 
SLSTBK: 


GETCOR: 
J 


#1,R4 3 sMEMORY pwr 
$kTOUT 33 YES@EXIT 
:3MUST BE PARITY ERROR~ IGNORE IT 
#100000,$KT11 = :KT11 NON=EX XIST 
#SCROUT ,a#ERRVEC “HESeT FOR TIMEOUT. 


R SET 

#4000,R1 : INCREMENT BY 1k 

#40,R2 K STEP 

(R15 ‘: TRAP ON TIME OUT 

#177776,R1 *:LAST ONE 
73NO--TRY AGAIN 

#4000,R1 

#40,R2 : DROP BACK 

RO, SP SRESTORE THE STACK 

(SP) +, @W#ERRVEC+2 ::RESTORE ERROR VECTOR 

(SP) +, a#ERRV 

SP) zzRESTORE MEMORY ERROR VECTOR 


+3 LAST ADDRESS 
T BANK 


ZZRESTORE R1 
Shade ;RO :sRESTORE RO 


0 3:CONTAINS THE LAST ADDRESS 
0 :sCONTAINS THE LAST BANK 


#200,$KT11 SUSE THE MEM. MANAGEMENT 
pC, SSIZE 


SLSTAD,R4 3SET m4 PHYSICAL ADDRESS 
$KT11 ;1S THERE A M.M? 


3$ 3B=N_PHY ADDR. IN SLSTAD 
74 S7EK. #7540 3MORE THAN 124K? 


TBK SONLY NEED 18 BITS (ADDRESS) 


MOV #7540,$LS 
MAKE THE VIRTUAL ADDRESS INTO A PHYSICAL 
MOV SLSTBK ,R4 


sALLIGN BITS FOR AN 18 BIT PHYSICAL ADDRESS 
sMOVE CARRY INTO R5 
sADD_1K (SLSTAD ALWAYS 3776) 
R4,$LSTAD ;MAK A 11 
= (OW ORDER 16 BITS + RS = BITS 16 + 17 INO + 1 
R5,XBITS 


5 ;BR=BASE<PHYSICAL ADDRESS 
Sasen AA sANY CORE OVER DIAG. 


SLSTAD ,HADDR 


sADJUST FOR SIGNED SUBTRACT 
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CZKMEA.P11 20-OCT-81 17:05 ROUTINE TO SIZE MEMORY SEQ 0107 Ci 

512 027574 ROR = R 

313 027576 O13701 002532 MOV  —-BADDR,,R1 

5514 027602 160104 SUB séRT,RG 

5515 027 40 NOP 

2516 057606 900940 NOP 

5517 027610 000240 NOP 

5518 z#eeaes ABOVE CODE MAY NEED ADJUSTMENT 
5519 027612 103001 Bcc «4S :BORROW? B=N 

5520 027614 005305 DEC = RS ZYES 

5521 027616 006304 4$: ASL = RG 32X RANGE = CHR COUNT 

2¢¢ 027620 006105 ROL RS 

5523 027622 010537 027662 MOV —- RS. CCHI 

5524 027626 010437 027664 MOV ——-R4CCLO 

5525 zFINC C/C_FOR UP TO 8K BYTES OVER THE BASE ADDRESS 

5526 027632 005705 ist RS ;OVER 8K BYTES? 

9527 027634 001006 BNE 5$ 

5528 027636 022704 017777 CMP = #17777,R4 ZOVER OR EQUAL TO 8K BYTES? 

5529 027642 003403 BLE $ =Y 

5530 027644 010437 002534 MOV = R4, CCTST MAX CC FOR TEST 

5531 027650 000403 BR 

293¢ 027652 012757 020000 002534 5$: Mov #20000, CCTST THIGHEST C/C=0 

5533 027660 000207 6$: RTS PC 

5534 027662 000000 CCHI: 0 

9939 027664 000000 cCLO: 0 

5537 {THIS ROUTINE WILL LOAD THE "NEXT" SEQUENTIAL 18 BIT BUFFER ADDRESS 
5538 3(BITS 17 + 16) INTO UEABITS" (BITS 15 414) AND (BITS 15-0) INTO 
5539 iTADDR™. |THE BUFFER ADDRESS IS DETERMINED FROM THE “LAST” BUFFER ADDRESS 
5540 CALLED’ AND THE VALUE OF THE CHARACTER COUNT (LOCATION. CONT") 

3541 TIF BUPFER IS GRANTED RETURN IS PC + 2 IF NOT RETURN TS BC 

5543 027666 000241 GETPHA: CLC 

5544 027670 013704 030006 MOV CNT. RG sCHR COUNT /2 

5545 027674 006004 ROR = RG CONVERT TO AN ADDRESS 

5546 027676 060437 030010 ADD —R4 ADDR : ADDRESS 

5547 027702 103011 Bcc Os «$ 

5548 027704 062737 040000 030012 ADD _ #40000, EABITS 

5549 027712 1$: NOW FIND OUT i ADDRESS IS LEGAL 

5550 027712 063737 030006 030014 ADD CNT, ADINL :ADD REQ CHARACTER COUNT TO ADDRESS INDEX 
951 027720 103002 Bcc Os 

9552 027722 005257 030016 INC  ADINH sADD_CARRY 

253 027726 025757 050016 027662 2$: (MP ADIN, CCHI :DOES THIS REQUEST EXCEED THE BUFFER LENGTH? 
5554 027734 005012 BGT 4S iB=Y RET. =PC 

5555 027736 023737 030014 027664 CMP = ADINL,,CCLO 

956 027744 005408 BLE 38 :B=0K GRANT BUFFER REQUEST 

5557 027746 005737 030016 TST —ADINH ZARE THERE UPPER BITS? 

5558 027752 001403 BEQ = 4$ :B=N REG. =PC 

5559 027754 062716 000002 38: ADD =: #2, (SP) GOOD RETURN 

5560 027760 000207 RTS = PC 

5561 027762 005037 03001 4$: CLR _—EABITS ;REPOINT BUFFER 

5562 027766 013737 002532 030010 MOV BADR ADDR ;LOAD BASE ADDRESS (BUFFER) 

5563 027774 005037 030014 CLR = ADINL SINITIALIZE ADDRESS. INDEX COUNTERS 

5564 0 005037 030016 CLR = ADINH 

5565 030004 000207 RTS oP 

5566 030006 000000 CCNT: 0 # OF CHARACTERS REQUESTED IN BUFFER SIZE 

5567 030010 000000 ADDR: 0 TADDDRESS OF REQUESTED BUFFER 





Ono 
NN 
x 

a3 
cs 


ARUN OSONOUES UNIS 


SESELE 


LV PVD PVP PUPUPV PVA SUSU LVSV SUI SUSV SSIS SI 
sess 
MEWN = 


PUPP IVD IV IV IUDV IUD SUSU SVSUSVIVSVSUSVIVST IVS SSIS 
o 
<8 


w 
SSSSS 
oO 


55 


SSSESEESES 


"AANA A NAMA ACN 
at ot ot ot ot ed 
SUOMNAUSWN =O 


vw 
oa 
Mor 
in 


DMS11=DA DYNAMIC 
20-0CT-81 17:05 


P11 

030012 
030014 
030016 


000000 


scssses 
Sox 23 


ooo 8o-—0o—'—o 
a 
Nu So 


MMW fh 
w 
NN 


wna = 
oOnNNN VUPNUN NUS 


s3 


Ss fk 


oO 

Nm 
VIWUA NSS 
YNnN NO 


£cs 


030240 
152154 
020000 


020000 
030240 
002000 


000006 
000004 
000004 
030200 
002260 


002076 


031650 


MACY11 


152154 
152132 
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ye 
ADINL 
ADINH: 


LDMODE : 


2$: 


4$: 


33658: 
64$: 


5$: 
6$: 
SETLIN: 
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TO SIZE MEMORY 

0 7E.A. BITS OF REQL STED BUFFER 
ADDRESS INDEX LOW (KEEPS TRACK OF INDEX IN BUFFER) 
ADDRESS INDEX HIGH 


sTHIS ROUTINE WILL LOAD THE DESIRED FIRMWARE (PARAMETER 
sBLOCK SPECIFIED) TO THE CURRENTLY ACTIVE KMC-11 


MOV ars, ($B) ZSAVE 4 & 6 
MOV ane. Pe TIME OUT TRAP ROUTINE 
MOV 43008" a@SELO 
MOV $,an 
CLR $ y INITIALIZE THE ADDRESS COUNTER 
MOV #CCPFRM,RS [SET POINTER FOR CCP MODE 
TSTB MODE ;REQUEST ING CCP? 
BPL =YES CCP 
MOV #BOPN32,R5 :POINT TO FILE wO/CRC32 
TST CRC32F 1S CRC32 ENAB LED? 
MOV #BOPW32 RS “POINT TO FILE WITH CRC32 
sLOAD THE DATA WORD INTO" KMC11 
MOV 5$,aSEL4 OAD ADDRESS 
MOV (R5) +, @SELS “LOAD THE DATA WORD 
BIS #20000, aSELO 
NOP 
NOP 
BIC #20000, aSELO 
sUPDATE THE ADDRESS AND TEST FOR DONE 
INC s :+1 TO ADDRESS COUNTER 
CMP #2000,5$ 
BNE 2$ 
MOV (SP)+,a#6 ZRESTORE 4 & 6 
MOV (sP)+, ans 
TS ;RETURN WHEN DONE 


R 
RINDICATE KMC=11 NOT FOUND 
ADD #4,SP : RESTORE STACK 
TYPE 7653 =: TYPE ASCIZ STRING 
BR 4$ GET OVER THE ASCIZ 
SASCIZ <15><12>/""KMC"" abies ERROR/ 


MOV SELO,-(SP) :GET DEVICE ADDRESS 

TYPOC : & TYPE IT OUT 

JMP MONIT + RETURN TO MONITOR FOR CORRECTION 
0 ZADDRESS COUNTER 

0 TEMP. ST 

MOVB _LINEB, CLINE LOAD LINE BYTE 

MOV #1, CURLIN s INIT LINE 

JSR PC,GETLIN [GET FIRST LINE 

HALT -NO LINES ENABLED!!! 

RTS PC tEXIT 


2THIS ROUTINE WILL DISPLAY ON THE CONSOLE DEVICE THE UNITS 
sREQUIREING LOOP AROUND CONNECTORS. 
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CZKMEA.P11 20-OCT-81 17:05 ROUTINE TO SIZE ME SEQ 0109 
5624 
5 930270 012700 900020 0 LPARND: MOV 16. ,RO :CLEAR UNIT FLAGS 
6 030274 012701 MOV mnitr FG,R1 

5627 030 00 9 1 1$: CLR (R1)+ 
5628 030302 005 DEC 
5629 030 00137 BNE 1$ 
5630 0 O12737 026232 024360 MOV WKMCTAB=12 . CURTAB 
5631 030314 9047 7 026506 2s: JSR PC,GETKAC :GET NEXT ENABLED UNIT 
56 : 0 320 14 BR ‘B=DONE DISPLAY UNITS 
5633 030322 105737 002316 TSTB  CLKDAT S INTERNAL LOOP SELECTED? 
5634 030326 100772 BMI 2$ ‘B=YE 
5635 0305 35 002456 ASL CUNIT SADJUST UNIT # FOR MEMORY REF. 

030334 012701 030554 MOV #UNITFG=-2,R1 S INDEX INTO TABLE 
5637 030340 063701 002456 ADD CUNIT,R1 
5638 030344 012711 177777 MOV #-1,(R1) ZSET FLAG 
5639 030350 000761 BR 2s *CHECK FOR NEXT UNIT 
5640 sDISPLAY UNITS REQUIRING LOOP CONNECT 
5641 030352 005037 002332 3$: CLR TYPFLG ZCLEAR TYPE INDICATOR FLAG 
5642 030356 012737 000001 002456 MOV #1, CUNIT 
5643 030364 104401 030372 TYPE 65$ is TYPE ASCIZ STRING 
5644 030370 000421 BR 643 i:GET OVER THE ASCIZ 
5645 3:65$: .ASCIZ <15><12>/UNITS REQUIRING LOOP CONNECTORS/ 
5646 030434 64S: 
5647 030434 012701 030556 MOV #UNITFG,R1 :POINT TO UNIT TABLE 
5648 030440 005721 4$: TST (R1)+ ‘UNIT RUNNING EXTERNAL? 
5649 030442 100017 BPL 5$ ‘B= 
5650 030444 104401 030452 TYPE 67S r:TYPE ASCIZ STRING 
5651 030450 000406 BR 66$ s3GET OVER tHe ASCIZ 
5652 33678: .ASCIZ <15><12>/ UNIT # / 
5653 030466 66$: 
5654 030466 013746 002456 MOV CUNIT,-(SP) ;3SAVE CUNIT FOR TYPEOUT 
5655 030472 104405 TYPDS 1:60 TYPE=-DECIMAL ASCII WITH SIGN 
5656 030474 012737 177777 002332 MOV #-1, TYPFLG SINDICATE UNIT # HAS BEEN PRINTED 
5657 030502 005237 002456 5$: INC UN 
5658 030506 022737 000021 002456 CMP #17. ,CUNIT DONE? 
5659 030514 001351 BNE [B=NO 

030516 005737 002332 TST TYPFLG SANNY UNITS DECLARED? 
5661 030522 100407 BMI $ *B=YES 
3662 030524 104401 030532 TYPE ,69$ ::TYPE ASCIZ STRING 
5663 030530 000404 BR 68$ +:GET OVER THE ASCIZ 
5664 3:69$: .ASCIZ <15><12>/ NONE/ 
5665 030542 68s: 
5666 030542 : 
5667 030542 104401 030550 TYPE 71$ zi: TYPE ASCIZ STRING 
5668 030546 000402 BR 70$ ::GET OVER THE ASCIZ 
5669 -:71$: .ASCIZ <15><12> 
5670 030554 70S: 
3671 030554 000207 RTS PC 
5678 030556 000020 UNITFG: .BLKW 16. 
ie 
5677 zTHIS ROUTINE WILL LOAD EACH POTENTIAL INTERRUPT VECTOR FROM 
5678 SLOCATIONS 204 TO 776 WITH A .#2/10T TRAP SEQUENCE TO CATCH 
5679 SANY HARDWARE INTERRUPT TO AN ILLEGAL VECTOR. 
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wr 


BO-beTeBy C7: 05 ROUTINE TO SIZE ME SEQ 0110 
030616 012700 000204 INTPRM: MOV #204,RO :POIINTER TO LOCATIONS 
030622 012701 000206 MOV #206,R1 [CONTAINS ADDRESS 
030626 010120 1$: MOV R1, (RO)+ :.¢ 
0306 012780 000004 MOV #17 (RO) + :10T INSTR. 
030634 062701 000004 ADD 
030640 022700 001000 CMP 41600, RO DONE? 
030644 001370 BNE 1$ ‘B= 
sLOAD TIME OUT TRAP VECTOR 
030646 012737 000006 000004 MOV #6 ,aN6 
030654 012737 000004 000006 MOV #4. ah6 
030662 000207 RTS PC 
ZTHE FOLLOWING ROUTINE WILL INITIALIZE THE CURRENT KMC-11 
SFIRMWARE BY ISSUEING A MASTER CLEAR AND SETTING THE RUN 
‘BIT. A WATCH=LOOP IS EXECUTED TO ASSURE THAT THE FIRMWARE 
1S RESPONDING TO THE USER C DS. IF THE FIRMWAR 
‘SOULD BE HUNG OR FAILS TO RESPOND A RETURN TO PC IS 
TEXECUTED, OTHERWISE PC+2 
30664 012737 000015 030756 INTKMC: MOV 
030672 112777 000377 151364 MOVB 433° SseL2 
030700 005077 151354 CLR aseELé CLEAR RUN, IF UP 
030704 012777 06 151346 MOV #40000, aSELO isét MASTER CLEAR 
030712 012777 100000 151340 MOV #100000, @SELO  :RUN 
030720 005037 001160 CLR $TMP 
030724 105237 001160 1$: INCB Simp :WAIT LOOP 
30730 001375 BNE 1$ : 
030732 105777 151326 TSTB = @SEL2 ‘DONE? 
30736 001404 BEQ 2$ :B=Y 
030740 005337 030756 DEC 3$ 
030744 001367 BNE 1$ 
030746 000207 RTS PC 
030750 062716 000002 2$: ADD #2, (SP) 
030754 000207 RTS PC 
030756 000000 3$: 
:THIS ROUTINE TEST THAT A “REQUEST IN’’ CAN BE DONE 
3 CHECKING THAT NO OUTPUT REQUESTS ARE POSTED (SEL2) oe THAT 
FIRMWARE RESPONDS TO A REQUEST IN BY POSTING THE READY-IN 
“IF THE REQUEST IN CAN BE DONE THE RETURN IS TO PC+2 OTHERWISE TO PC 
030760 112777 000040 151272 REQNT: MOV #40. aSELO ; TRANSMIT BUFFER IN REQ. 
30770 tenes 000044 151262 REQNR: MOVB #44,aSELO :REC. BUFFER IN REQUEST 
030776 000413 BR Q 
31000 112777 000045 151252 REQNC: MOVB 4#45,aSELO :CONTROL IN RECEIVE REQUEST 
031006 000407 BR REQGO 
031010 Merr? 000041 151242 REQNX: MOVE #41, aSELO ZCONTROL IN TRANSMIT REQUEST 
031020 112777 000043 151232 REQNI: MOVB #43,aSELO : INITIALIZE IN REQUEST 
031026 105777 151232 REQGO: TSTB  aSEL2 OUTPUT REQUESTED 
031032 100410 BMI 2$ :B=Y 
031034 005037 001160 CLR $TMPO 
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CZKMEA.P11 20-OCT-81 17:05 ROUTINE TO SIZE MEMOR SEQ 0111 
5736 0310460 105777 151214 1$: TSTB aSELO 31S REQUEST GRANTED? 
5737 031044 1004 BMI 3$ 
5738 03104 00 é 7 001160 INC $TMPO ALLOW TIME FOR RESPONSE 
5739 031052 001 é BNE 1$ ;TRY AGAIN 
5740 031054 90920 28: RTS PC [RETURN PC 
5741 031056 062716 000002 $: ADD #2, (SP) 
5742 031062 000207 RTS PC 
ste 
5745 zTHIS ROUTINE WILL LOAD THE LINE INITIALIZE COMMAND 
3746 zIN TO THE DEVICE REGISTERS, CURLIN=LINE # (AT THIS POINE RDY=IN 
5748 031064 113777 002454 151174 INTLIN: MOVB  CURLIN,@SEL3 
5749 031072 012777 000400 151174 MOV #400, aSEL6 ZENABLE LINE 
5750 031100 005077 151164 CLR asELé SUNUSED 
5751 031104 004737 031772 JSR PC, INPDUN :TEST THAT INPUT COMPLETED 
5752 031110 000207 RTS PC {RDYCIN'F FAILED TO DROP 
5753 031112 062716 000002 ADD #2, (SP) 
les 031116 000207 RTS PC sCOMMAND COMPLETED 
5756 ;THIS ROUTINE WILL INITIALIZE ALL THE LINES STARTING AT LINE 1 
5757 031120 013700 002454 INTALL: MOV : 
5758 031124 113737 002313 031202 MOVB CLINE, HOLDB :SAVE LINE BYTE 
5759 031132 004737 030244 i JSR PC,SETLIN SINITIALIZE LINE # COUNTER 
5761 031136 004737 031020 JSR PC,REQNI :CAN A INITIALIZE IN BE EXECUTED? 
5762 031142 000411 BR tA REQUEST IN FAILED 
5763 031144 004737 031064 JSR PC, INTLIN ZINITIALIZE # IN CURLIN 
5764 031150 000406 BR LINE INITIALIZATE COMMAND FAILED TO COMPLETE 
5765 031152 004737 031650 JSR PC,GETLIN ‘GET THE NEXT LINE NUMBER 
5766 031156 000401 BR 2$ 
5767 031160 BR 
5768 031162 062716 000002 2$: ADD #2. (SP) 
5769 031166 010037 002454 3$: MOV RO. CURLIN 
5770 031172 113737 031202 002313 MOVB HOLDB, CLINE ;RESTORE 
5771 031200 TS PC 
5772 031202 HOLDB: 0 
ie 
5775 THIS ROUTINE WILL ISSUE A LINE INITIALIZE TO THE LINE 
3776 SSPECIFIED IN ‘CURLIN’ 
5778 031204 INTLNE : 
5779 031204 004737 031020 JSR PC ,REQNI :CAN A INITIALIZE IN BE EXECUTED? 
5780 031210 000405 BR 
5781 031212 004737 031064 JSR PC, INTLIN sINITIALIZE # IN CURLIN 
5782 031216 000402 BR 1 
5783 031220 062716 000002 ADD #2, (SP) :SET GOOD RETURN 
5784 031224 000207 1$: RTS PC 
HH 
3787 ;THIS ROUTINE WILL START THE MAINTENCE CLOCK ON ALL ENABLED LINES 
5789 031226 015746 002454 CLKALL: MOV CURLIN, -(SP) :SAVE CURLIN 
5790 031232 004737 030244 JSR PC,SETLIN 
5791 031236 1$: 
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579 31 a8 004737 031274 JSR PC,STCLK ;SET MAINT LOOP + START CLOCK 
031242 000411 BR 3$ 

res 031264 004737 031650 JSR PC,GETLIN ;GET THE NEXT LINE NUMBER 

5795 031250 000401 BR 2$ 3B=NO MORE LINES ENABLED 

5 031252 000771 BR 1$ :D0 NEXT LINE 

5797 031254 012637 002454 2s: MOV (SP)+, CURLIN SRESTORE CURLIN 

5798 031260 062716 000002 ADD #2, (SP) :SET FOR A GOOD RETURN 

5799 031264 909207 RTS PC 

5800 031266 012637 002454 3$: MOV (SP) + CURLIN sRESTORE CURLIN 

2801 031272 000207 RTS PC RETURN 

5803 zTHIS ROUTINE WILL SET THE MAINTENANCE LOOP AND START THE 

5804 SCLOCK. IF COMMAND FAILS TO EXECUTE A RETURN IS MADE TO 

3805 :PC, OTHERWISE TO PC+2. 

5807 031274 STCLK: 

5808 031274 004737 031000 JSR PC ,REQNC 7CAN A CONTROL IN BE EXECUTED? 

5809 031300 000415 BR :CANNOT ISSUE {COMMAND 

5810 031302 113777 002454 150756 MOVB CURLIN,@SEL3 :SELECT LINE # 

5811 031310 112777 000100 150760 MOVB #100,aSEL7 {INDICATE LOADING A MAINT. COMMAND 

5812 031316 113777 002316 150750 MOVB = CLKDAT, aSEL6 3SET INTERNAL LOOP + START CLOCK 

5813 031324 005077 150740 CLR @SEL4 ED 

5814 031330 004737 031772 JSR PC, INPDUN TEST THAT INPUT COMPLETED 

5815 031334 000207 2$: RTS PC =COMMAND NOT COMPLETED 

5816 031336 062716 000002 3$: ADD 42. (SP) 

3817 031342 000207 RTS 

5819 zTHIS ROUTINE WILL EXECUTE EITHER / RECEIVE OR TRANSMIT BUFFER 

5820 zIN COMMAND DEPENDING ON THE ENT Y POINT. THE. BUFFER ADDRESS 

5821 *1S OBTAINED FROM LOCATION ‘BUF ADR" AND "BUFEA’ THE CHARACTER 

2822 ‘COUNT OF THE BUFFER FROM BUFCNT'. CURLIN © LINE # 

5824 031344 RIN: 

5825 031344 004737 030770 JSR PC ,REQNR ZCAN A REC. BUFFER-IN BE EXECUTED? 

5826 031350 000422 BR RPT SRECEIVE BUFFER FAIL TO 

5827 031352 000403 BR FRD 

5828 031354 XIN: 

5829 031354 004737 030760 JSR PC ,REQNT AN A TRANSMIT BUFF. IN BE EXECUTED? 
30 031360 000416 BR RPT -TRANSMIT. BUFFER FAILED TO LOAD 

5831 031362 113777 002454 150676 FRD: | MOVB  CURLIN.@SEL3 LOAD LINE # 

5832 031370 013777 002522 150672 MOV BUFADR,@SEL4 £16 BIT BUFFER ADDRESS 

5833 031376 013777 002524 150670 MOV BUFEA, @SEL6 [LOAD EA BITS 

5834 031404 063777 002526 150662 ADD BUFCNT,@SEL6 § :LOAD CHARACTER COUNT OF BUFFER 

5835 031412 004737 031772 JSR PC, INPDUN :TEST THAT INPUT COMPLETED 

5836 031416 000207 RPT: RTS PC 

5837 031420 062716 000002 ADD #2, (SP) 

3838 031424 000207 RTS PC 

5840 THIS ROUTINE WILL COUNT THE # OF ONES IN THE WORD 

5841 ZCONTAINED IN LOCATION ‘WAS’ AND RETURN TO PC IF THE 

oars 34 IF ODD OR PC+2 IF EVEN. 

5844 O38 012701 000010 PARCHK: MOV #8..R1 :COUNT BITS TESTED 

5845 031432 905008 CLR R 

5846 113700 002464 MOVB  WAS,RO 

5847 $31426 100402 BMI 13$ :BR=BIT 7 = 1 
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5848 031442 106300 12$:  ASLE RO 
5849 031444 100001 BPL 14$ 
5850 031446 005202 13$: INC R2 :COUNT THE ONES 
5851 031490 005307 148: DEC R1 :COUNT THE ONES 
285 031452 001373 BNE 12$ :B=N 
585 :0DD OR EVEN 
5854 031454 952702 000001 BIT #1,R2 
5855 031460 00100 BNE 15$ :B=0DD 
5856 031462 062716 000002 ADD #2, (SP) SEVEN 
2857 031466 000207 15$: RTS 
5859 ;THIS ROUTINE WILL STORE CONTENTS OF THE CSRS FOR DISPLAYING 
2860 ‘IN THE ERROR REPORT ROUTINE 
5862 031470 017737 150564 002342 GETCSR: MOV @SELO,CSRO 
5863 031476 017737 150562 002344 MOV asEL2, EeRe 
5 031 017737 150560 002346 MOV @SEL4.CSR4 
5865 031512 017737 150556 002350 MOV @SEL6,CSR6 
5866 031520 000207 RTS PC 
258 
5869 031522 127727 150536 000200 RBONLY: CMPB  aSEL2.#200 :XMIT? 
5870 031530 001005 BNE 1$ ‘SKIP IF NO 
5871 031532 105077 150526 CLRB = @SEL2 =CLEAR 
5872 031536 004737 031742 JSR PC ,REQOUT 
5873 031542 000240 NOP 
5874 031544 000207 1$: RTS PC 
se 
5877 THIS ROUTINE WILL ISSUE A LINE RESET COMMAND TO THE 
2595 SLINE SPECIFIED BY CURLIN’ 
5880 031546 LRSET: 
5881 031546 004737 031000 JSR PC ,REQNC :CAN A CONTROL IN BE EXECUTED? 
5882 031552 000414 BR REQ. Pa HUNG 
5883 031554 113777 002454 150504 MOVB CURLIN. aseL3 [LD LINE &# 

031562 112777 000020 150506 MOVB 420.8 CINE RESET COMMAND 
5885 031570 005077 150474 CLR : UNUSED 
5886 031574 105077 150474 CLRB ast UNUSED 
5887 031600 004737 031772 JSR PC, INPDUN [TEST THAT INPUT COMPLETED 
5888 031604 000207 2$: RTS 
5889 031606 062716 000002 ADD #2, (SP) 
5890 031612 000207 RTS PC 
5891 
3 
5894 zTEST THAT INPUT COMMAND COMPLETD PC+2 = COMPLETED PC = NOT COMPLETED 
5895 031614 105037 001160 COMIN: CLRB  $TMPO 
5 031620 105777 150434 1$: TS7B = @SELO :DID RDY IN DROP? 
5897 031624 100004 BPL 2$ :B=Y 

031626 105637 001160 INCB = $TMPO 
2500 oars $0 0 ene pe COMMAND NOT COMPLETED 

31636 eyat4 000002 2s: ADD #2, (SP) 

3902 031642 000207 RTS PC 30K 
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MACY11 30A(1052) 21-OCT-81 
ROUTINE TO SIZE MEMOR SEQ 0114 
: RETURN pce2 NEW LINE # IN CURLIN, PC=DONE 
GETLNO: ASLB CLI :SHIFT TO NEXT LINE 
GETLIN: INC tA 
TSTB = CLINE :LOOK FOR LINE BIT 
BEQ i$ SSKIP IF NONE LEFT 
BPL GETLNO :CHECK AGAIN 
ASLB = CLINE SHIFT 
ADD #2. (SP) :FOUND LINE 
002313 1$ MOVB = LINEB, CLINE zINIT LINES 
002454 MOV #~1, CURLIN SRESET 
RTS PC TEXIT 
:THIS ROUTINE WILL ALLOW TIME FOR KMC TO DETECT SYNC 
SYNTIM: CLR $TMPO 
CLR STMP1 
1$: INC STMPO 
BNE 1$ 
COM $TMP1 
BNE 1$ 
RTS PC 
zTHIS ROUTINE WILL MONITOR THE REQUEST OUT OF SEL2 
[FOR SETTING WITHIN DURATION OF 1 L 
REQOUT: CLR STMPO 
1$: TSTB = @SEL2 sOUTPUT REQUESTED? 
BMI 2$ *B=YES 
INC $TMPO 
BNE Is zTRY AGAIN 
RTS :NO OUTPUT REQUESTED 
2s: ADD WS, (SP) 
RTS PC UTPUT IS REQUESTED 
:THIS ROUTINE WILL TEST ‘oer THE INPUT STATUS COMMAND 
‘WILL COMPLETE (RDY-IN DROPS) 
150260 INPDUN: BIC #40, aSELO 
CLR $TMPO sINSRUCT COMMAND READY 
1$: TSTB = @SELO : INPUT DONE? 
BPL 2$ *B=YES 
INC $TMPO 
BNE 1$ 
RTS PC ; COMMAND NOT ACCEPTED 
2$: ADD #2, (SP) 
RTS PC COMMAND DONE 
ZIF BUFFER REQ. IS LEGAL (CORE AVAIL + WITHIN BOUNDS) MAP KT11 
CIF EXISTANT) AND RETURN TO PC+2 OTHERWISE PC 
: MAPBFR = IF RECEIVE BUFFER POSSIBLY NEEDING CRC BITS 
: MAPBUF = IF ANY OTHER BUFFER 
MAPBFR: MOV #1,RO  ;SET RECEIVE BUFFER FLAG 
BR MAPBF C 





~MN 
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5960 032036 603000 MAPBUF: CLR RO ;SET OTHER BUFFER FLAG 
5961 032040 005737 027022 MAPBFC: TST $kT11 
5 032044 1 3 BPL Bs :B=N 
5963 032046 042737 000001 177572 BIC #1,a4SRO :SHUT OFF KT11 
5964 032054 013737 002500 002502 8s: MOV CURBUF ,MAPADR USE TO READ THE DATA 
5965 032062 013702 002476 MOV CUREA,R 
5966 :FORM RETURN ADDRESS 
5967 032066 013701 002500 MOV CURBUF ,R1 
5968 032072 062701 000010 ADD #10,R1 
5969 032076 103001 BCC :B=NO CARRY 
5970 032100 00520 INC R2 :+1 TO THE EA BITS 
5971 032102 105737 002311 10$: TSTB MODE :BOP OR CCP 
5972 032106 100020 BPL 1$ ‘SKIP IF CCP 
5973 032110 062701 000010 ADD #10,R1 ; CHANGE WORD COUNT TO BYTES 
5974 032114 103001 BCC 11$ 
5975 032116 005202 INC R2 
5976 032120 005700 11$: TST RO 31S THIS A RECEIVE BUFFER? 
5977 032122 001416 BEQ 1$ ‘SKIP IF NO 
5978 032124 10573 002316 TST6 CLKDAT “EX TERNAL ? 
5979 032130 100407 BMI 1$ :SKIB IF INTERNAL 
5980 032132 105737 002314 TSTB  CRC32F RC32 ENAB 
5981 032136 100004 BPL 1$ Seip IF NO LEP RABLED 
5982 032140 062701 000004 ADD #4,R1 SADD ADDITIONAL CRC BYTES 
5983 032144 103001 BCC 1$ 
5 032146 005202 INC R2 
5985 032150 010137 002512 1$: MOV R1,RETADR 
032154 010205 MOV R2,R5 
5987 032156 005004 CLR RS 
032160 000241 CLC 
5989 032162 012700 000002 MOV #2,R0 
032166 006205 14$: ASR RS 
5991 032170 ROR RG 
5992 032172 00 DEC R 
5993 032174 001374 BNE 14$ 
994 032176 010437 002510 MOV R4,RETEA 
5995 032202 020237 002340 CMP R2.XBITS 1S REQUESTED BUFFER LEGAL? 
5996 032206 BEL BGT 7$ ‘B=N DON'T ISSUE - *- REQ. 
5997 032210 06100 BNE 15$ B= THERE FOR LESS T 
5998 032212 020137 002336 CMP R1,HADDR THEN 16 BIT ADDR must T BE _LESS OR EQ 
999 032216 101116 BHI 7$° TIF GREATER OR NOT EQUAL = DONE 
:IF A KT11 AVAILABLE MAP’ APPROPRIATELY 
6001 032220 005037 002524 15$: CLR BUF EA 
6002 032224 005737 027022 TST $kT11 
6003 032230 100076 BPL 66$ :NO KT11 
6004 032232 012700 000006 MOV ; 
6005 032256 012701 172300 MOV # 1PDRO,RI 
6006 0 eke 012721 077406 2s: MOV #77406,(R1)+ LOAD PDR. 
6007 032246 005300 DEC RO 
6008 032250 001374 BNE 
6009 032252 012700 MOV #1,RO ZDISABLE 6 
6010 032256 gie721 077400 $$: MOV #77400,(R1)+ | =NO ACCESS 
6011 032262 005300 DEC RO 
6012 032264 001° 74 3$ 
6013 032266 O12, 1 077406 MOV #77406, (R1) :PG 7 
6014 039272 013702 002476 MOV —«CUREA, R2 
6015 032276 013701 002500 MOV CURBUF ,R1 
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OUTINE TO SIZE ME SEQ 0116 
CLC 
MOV #10.,RO zKT11 FORMAT 
4$: ASL #1 
ROL R2 
DEC RO 
BNE 4$ 
BIC #77 ,R2 ZASSURE A 4K BOUND 
MOV #KIPARO,RO [MAP THE PAGES 
CLR R1 
MOV #5.R4 
5$: MOV R1,(RO)+ 3D0 PAGES 0.1,2,3,+4 (MAIN PROGRAM) 
ADD #200,R1 74K 
DEC RG : DONE? 
BNE 38 :B=N 
MOV RO) MAP PAGE 5 WITH BUFFER (REC) ADDRESS 
MOV #197600. a#K PAR?” 1/0 PG. 
MOV MAPADR 
ADD §20006, MAPADR 
BIS #1,a4SRO :KT11 ON 
CLC SALLIGN EA BITS 
MOV #3,RO 
MOV CUREA,R1 
65$: ROR R1 ZALIGN EA BITS FOR CSR FORMAT 
DEC RO 
BNE 65$ 
MOV R1,BUFEA :PHYSICAL CSR EA FORMAT (15-14) 
66$: MOV #10010,BUFCNT :LENGTH OF BUFFER 
BIC MODMSK . BUF CNT 
MOV CURBUF ,BUFADR ;BUFFER ADDRESS (PHYSICAL 0-15) 
ADD #2, (SP) 
7$: RTS PC 
:THIS ROUTINE WILL INITIALIZE THE “CURBUF BY CLEARING IT 
[AND WRITING THE TRANSMIT BUFFER(TBUF ) 
‘WITH A 10 CHARACTER INCREMENT PATTERN 
INTREC: MOV MAPADR,RO ZCURRENTLY MAPPED BUFFER 
1$: CLR (RO) + TCLEAR ALL 127. WORDS 
BIT #177,R0 [DONE 
sWRITE THE TRANSMIT BUFFER 
MOV #TBUF ,R2 7SET STARTING ADDRESS 
MOV #10,R1 SET LENGTH OF BUFFER 
JSR PC ,MEMF IL [FILL BUFFER 
RTS PC 
ZTHIS ROUTINE WILL INITIALIZE THE “‘CURBUF’’ BY WRITING IT WITH 
[A 10 CHARACTER INCREMENT PATTERN THEN CLEARING 
: THE RECEIVE BUFFER (RBUF ) 
INTTRM: MOV MAPADR ,R2 : CURRENTLY MAPPED BUFFER 
mov #10,R1 “LENGTH O 
PC MEME IL FILL BUS FER WITH INCREMENTING PATTERN 
TPT EAR THE RECEIVE BUFFER 
MOV #RBUF RO 
2s: CLR (RO)+" 


Ci 
C2 











Nn 9 
oss 50 PAGE 117 





CZKMEAO DMS11=DA DYNAMIC MACY11 a 8 fe i 21-0CT-81 


CZKMEA.P11 20-0CT-81 17:05 OUTINE TO SIZE MEMOR SEQ 0117 | 


607 032532 020027 053056 CMP RO,ARBUF+126. DONE? 

6073 032536 001374 BNE 2$ :B=N 

6074 032540 000207 RTS PC 

607 :THIS ROUTINE WILL WRITE AN INCREMENT ING PATTERN IN THE 
607 [NAMED BUFFER. IN BOP MODE ALL PATTERNS WILL BE USED 
6078 TIN CCP MODE ONLY PATTERNS 40-175 WILL BE USED. 

6079 SENTER WITH R1I=LENGTH OF BUFFER. iN BYTES 

rer 3 R2=STARTING ADDRESS OF BUFFER 

6082 32542 010146 MEMFIL: MOV R1,-(SP) 

608 032944 010246 MOV nes -(SP) 

6084 032546 105737 002311 TSTB MODE 

6085 032552 100412 BMI 1$ 

6086 032554 012737 000175 032710 MOV #175,20$ :CCP HIGH LIMIT=175 

6087 032562 012737 000040 032712 MOV 40,218 [CCP LOW LIMIT=40 

6088 032570 112722 000201 MOVB #201, (R2)+ :SET 1ST CHAR TO SOH 

6089 032574 005301 DEC R1 ZREDUCE REMAINING CHAR COUNT 
6090 032576 000406 BR 2$ 

6091 032600 012737 000377 032710 1S: MOV #377,20$ :BOP HIGH LIMIT=377 

6092 032606 016737 000000 032712 MOV #0,21$ *BOP L MIT= 

6093 032614 023737 032712 032714 2S: CMP 218,228 CURRENT VALUE BELOW ALLOWABLE RANGE? 
6094 032622 101004 BHI [B=YES 

6095 032624 023737 032710 032714 CMP 20$,22$ : CURRENT VALUE ABOVE ALLOWABLE RANGE 
60% 032632 101003 BHI 

6097 032654 013737 032712 032714 3$: MOV 21$.22$ SET VALUE TO LOWEST POSSIBLE 
6098 032642 113722 032714 4$: MOVB 22$,(R2)+ [STORE PATTERN INTO BUFFER 

6099 032646 005301 DEC R1 [COUNT DOWN NUMBER OF BYTES 
6100 032650 003407 BLE 6$ :B=DONE 

6101 032652 105237 032714 INCB 228 S INCREMENT DATA PATTERN 

6102 032656 023737 032710 032714 CMP 20$,22$ SHAVE WE PASSED HIGHEST VALUE? 
6103 032664 103366 BHIS 4$ SB=CONTINUE WITH THIS PATTERN 
6104 032666 000762 BR 3$ ‘START OVER WITH LOWEST VALUE 
6105 032670 105737 002311 6$: TSTB MODE [WHEN COMPLETE , CHECK MODE 

6106 032674 100402 BMI 7$ :SKIP IF BOP 

6107 032676 112742 000003 MOVB #3,-(R2) of ccP REWRITE LAST BYTE AS ETX 
6108 032702 012602 7$: MOV (SP) +,R2 pi 

6109 032704 012601 MOV (SP)+-R1 

6110 032706 000207 RTS PC 

6111 032710 000000 20$:  .WORD 0 ZHIGHEST ALLOWED PATTERN 

6112 032712 000000 21$: <cWORD 0 SLOWEST ALLOWED PATTERN 

6113 032714 000000 22$: WORD 0 SCURRENT DATA PATTERN 

6115 THIS ROUTINE WILL TEST THE DATA TRANSFERRED TO THT RECEIVE BUFFER 
og [TWO ENTRY POINTS ALLOW FOR THE CURRENT ‘RECEIVE’ oJFFER 
6118 032716 012701 052660 TSTREC: MOV #RBUF RI :TABLE “RBUF'' IS THE RECEIVE BUFFER 
$130 §3575¢ Oy 3704 00250 TSTMAP: MOV HAPADR R1 *‘MAPBUF'’ CONTAINS THE ADDRESSED RECEIVE BUFFER 
6121 032730 012737 Naat 002462 MOV #3 

6122 032736 112137 002464 1$: MOVB (R1)+,WAS 

6123 032742 140757 000200 002464 BICB #200,WAS sELIMINATE THE PARITY BIT 

6124 032750 123737 002462 002464 CMPB = SHBE.. WAS ‘DOES DATA COMPARE? 

6125 032756 001010 BNE 2$ [REPORT ERROR 

6126 032760 00325 00246 INC SHBE 

6127 032764 022737 000177 002462 CMP #177, SHBE DONE? 
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6128 032772 001361 BNE 18 :B=NO GET NEXT VALUE 
6139 039776 16 000002 ADD —s- #2, (SP) | 
61 0 0 23: RTS eS | 
131 033008 01 101127 FERBUF: BYTE 201,101,127,3 SOM & ETX 
6153 03 20} 101127 BYTE 201,101,127,27 :SOH & ETB 
6134 033011 7 | 
6135 033012 202 101127 BYTE 202,101,127,3  ;STX & ETX 
6136 03301 60 
137 033016 20 101 «(127 BYTE 202,101,127,27 :STX & ETB 
6138 038021 02 
6140 033022 201 101.101 ‘T7BUF: BYTE — 201,101,101,3 
6141 03302 603 
6142 033026 226202101 LACBUF: .BYTE — 226,202,101,127,127,127,3,376 
6143 033081 = «12 j 127 
6144 033036 003 3% 
6145 033036 226 20 101 PERBUF: .BYTE 226,202,101,126,127,127.3.376 
6146 033041 136 12 127 
6147 033044 003 376 
6148 033046 000000 WORD 0 
arty 
6151 033050 044506 046522 040527 EMO01: eASCIZ /FIRMWARE INITIALIZE TEST/ 
6152 033056 042522 044440 044516 
6158 033064 044524 046101 055111 
6154 033072 020105 042524 052123 
615% 033100 000 
6156 033101 122 040505 054504 EMO2: .ASCIZ /READY IN BIT (SELO-BITS) TEST/ 
6157 033106 044440 020116 044502 
6158 033114 020124 051450 046105 
6159 033122 026460 044502 032524 
6160 033180 020051 042524 052123 
6161 033136 000 
6162 033137 116 026517 052517 EMO3: eASCIZ /NO-OUTPUT READY TEST/ 
6163 033144 050124 052125 051040 
6164 033152 040505 054504 052040 
6165 033160 051505 000124 
6166 033164 044514 042516 044440 EM04: .ASCIZ /LINE INITIALIZE TEST/ 
6167 033172 044516 044524 046101 
6168 033200 055111 020105 042524 
Tie GREHTT “155 @61SSt 066505 rms: asad sMECEIVG Eurren-in testy 
6171 035016 042506 041040 043125 
6172 033226 040506 026502 047111 
Sifa BEESEH GS1I36 O2F101 DELESS EmOG: .ASCIZ /TRANSRIT GUFFER-IN TEST/ 
o17s 033946 OS2111 041020 048158 
6176 033254 042506 026902 047111 
Ti5e Seesye GAATy Gestl] GLAST) ner: ascl? fousTom. 170 ComueTion Test: 
6179 033076 020114 027511 020117 
6180 033304 047503 050115 042514 
6181 033312 044524 047117 052040 
6182 033320 051505 000124 
6183 033324 044514 042516 047440 EM10: .ASCIZ /LINE OVERFLOW TEST/ 





on 


SEQ 0119 | 


Caio.) eae 


C 10 
PAGE 119 


21-OCT-81 08:50 


ROUTINE TO SIZE MEMORY 


MACY11 30A(1052) 


CZKMEAO DMS11-DA DYNAMIC 
20-0CT-81 17:05 


CZKMEA.P11 





eASCIZ /LINE RESET OF RECEIVE BUFFERS/ 
-ASCIZ /"‘ABORT OUT’ TO TRANSMIT BUFFERS/ 
eASCIZ /QUEUING OF ALT. TRANSMIT BUFFERS/ 


eASCIZ /LINE RESET OF TRANSMIT BUFFERS/ 
eASCIZ /"‘ABORT IN’’ TO TRANSMIT BUFFERS/ 


eASCIZ /"‘ABORT OUT’’ TO RECEIVE BUFFERS/ 
eASCIZ /"‘ABORT IN’' TO TRANSMIT BUFFERS/ 


eASCIZ /QUEUING OF ALT. RECEIVE BUFFERS/ 
eASCIZ /ALTERNATE BUFFER DYNAMICS TEST/ 


- ~N ~» wv wn Oo ~ oS = 

- -_- - - bd - - N N 

= = = = = = = oa = 

us [ve] [ve ) w tad us us ua us 
TRO MTNONW MTNTN WOTTON RSTNMHMH CTT WOrOoON NOON KONMWMN WwOUOr-mM 
—-N ONMOTN OCUNUNO NTOTN RK UNOO NTNNO NTOTN NOTE eTNoo wore wu 
Wer SF KNOWN See Ne — K—On ON SKN — §—OMNeTK— &K§ On OM KNeOMenr SYN K— K—NonNne 
KN OOerer— COCO WWRhRe er KK WNORr- WOOO NRE kK SON TM KROWORK- BRON tu 
oo OoCOOoOoOoO OCOCOoOOoOO COCoOO SCOCoCOoOOoO SCOCOoOoOOoO COCOCoOoOo oo oooo 3s oo 


NT KMow —-mMmoOwn NOT O eke NWMNoONM NOT NOTFOOUMMK Oe wronwnew 
ON Kr aH-NuT o-VNe-So Orr onus on-tue NIN K— ONO MN NOoOoor 


3S SSSSS SS5SSS SSSSS SSESSS SSSSS SSSSS SSSSSSSSSSS SSSSS 


DOR OFVURMMNOSOUR. OOUIMCUOR. MINOT OMOUMUO St OCUMCMUOR MNO OE UTNE RSI MOUM AH eK Orem 
ne TOWN FTN Pe Ne 


38 S233 3258 3 KMGBSSSSSSSSIBKSZ- SFIROHSSSSSSasss 


S833 8838 s 
voor sy oTANVouowrs™N TFTNUMOOTVNONO OT NONOOTNO- ONO ONOCOrNOoONoOOornN 
RESTS SS Ripa ere ene ph tain a tauh eth trie h RRS let a CSS 
tara aerate era aaa atta aetna tata trata 
SOOSOSOSOOSOSOSOSOSOSOSOSOSOSOSSSOSSOSSOSOSSOSSOSOSOOSSSSSOSSSSSSSSSSSSSOSOSSSSSSoO 
SGEBELIENTISRD SE SENSSESS SESE NOT SH PSEA AAAS ARRAS 
BS5500505 SODSOSOIITITI VIII IVI VIII IIIS VISITS SSS UeS 
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6240 034000 000 

41 034001 116 046530 631458 EM22:  .ASCIZ /NXM STATUS TEST/ 

42 034006 ee to 94 636363 2012 

45 034014 042524 052123 000 

44 034021 105 bells? 023040 EM23: .ASCIZ /ETB & ETX TERMINATION TEST/ 

45 034026 042440 054124 052040 
ose 034034 051105 044515 040516 

47 03404 petece 047117 052040 
6248 034050 051505 000124 
6249 034054 051114 020103 051105 EM24: .ASCIZ /LRC ERROR GENERATION TEST/ 
6250 034 047522 Be tss 042507 
6251 034070 055318 040522 044524 
O66 034076 047117 052040 051505 
6253 034104 000124 
6254 034106 040520 044522 054524 EM25: .ASCIZ /PARITY ERROR GENERATION TEST/ 
6255 034114 042440 051122 051117 
6256 034122 043440 047105 951105 
6257 034130 052101 047511 020116 
6258 034136 042524 052123 000 
6259 034143 103 040510 040522 EM26: .ASCIZ /CHARACTER COUNT TEST/ 
6260 034150 052103 051105 041440 
6261 034156 052517 052116 052040 
Oc6¢ 034164 051505 000124 
6263 034170 047514 020127 031461 EM27: .ASCIZ /LOW 13 BIT TRM + REC TEST/ 
6264 034176 041040 052111 052040 
6265 034204 046522 025440 051040 

66 034212 041505 052040 051505 
$568 032950 049593 042503 053111 &M30 ASCIZ /RECEIVE BUFF. HIGH ORDER BITS (14-17) TEST/ 
6269 034230 020105 052502 043106 
6270 0342 020056 044510 044107 
6271 034244 047440 042122 051105 
6272 034252 041040 052111 020123 
6273 034260 030450 026464 033461 
6274 034266 020051 042524 052123 
e506 034575 134 040522 051516 &M31 ASCIZ /TRANSMIT BUFF HIGH ORDER BITS (14-17) TEST/ 
6277 034302 044515 020124 052502 
6278 034310 043106 044040 043511 

034316 020110 051117 042504 
034324 020122 044502 051524 

6281 0343352, 024040 032061 030455 
6282 034340 024467 052040 051505 
rid $32380 04 444 040524 052040 EM32 ASCIZ /DATA TRANSFER TEST/ 
6285 034356 0405.2 051516 825296 
6286 034364 020122 042524 05212 
rt $3237 "4 050116 052125 EM33 ASCIZ /INPUT INTERRUPT TEST/ 
6289 0344 044440 625118 051105 
6290 034406 052522 052120 052040 
6592 034420 082817 090154 052125 &M34 ASCIZ /OUTPUT INTERRUPT TEST/ 
6293 034426 044440 052116 051105 
6294 0344 b25068 052120 052040 
6295 034442 051505 000124 





E 10 
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11 20-OCT-81 17:05 ROUTINE TO SIZE MEMOR SEQ 0121 
034446 7125 52111 021440 DH1 eASCIZ /UNIT # TEST # FAIL # DEV.ADR./ 
Seeeee 030046 825334 923438 
tone 73 021440 0 Tas 830208 
8 4 046111 8 144 20040 
eth 042504 7126 042101 
034504 02 ise 999 
034507 125 044516 pense DH2: -ASCIZ /UNIT # TEST # FAIL # SHBE WAS/ 
034514 020043 bands 051505 
Oates 020124 02004 gh a8 
Bare 044501 020114 02004 
034536 051440 041110 pet 18: 
Sgt 2e3 oops 053440 051501 
pscees 125 044516 020124 DH3: eASCIZ /UNIT # TEST # FAIL # LINE &/ 
034560 020043 052040 051505 
034566 020124 020043 043040 
034574 044501 020114 020043 
034602 046040 047111 020105 
O3cet2 eae 052111 021440 DH4 ASCIZ /UNIT # TEST # FAIL # LINE # CSRO CSR2 CSR4 CSR6/ 
034620 020040 042524 052123 
034626 021440 020040 040506 
34634 046111 021440 020040 
034642 044514 042516 021440 
034650 020040 051503 030122 
034656 020040 020040 051503 
034664 031122 020040 020040 
034672 051503 032122 020040 
Ber ooe 020049 051503 033122 
034707 25 044516 020124 DHS: eASCIZ /UNIT # TEST # FAIL # LINE # SHBE CSRO CSR2 CSR4 SR6/ 
034714 020043 052040 051505 yee 
034722 020124 020043 043040 
0347 044501 020114 020043 
034736 04 047111 020105 
034744 02 051440 041110 
034752 020105 020040 041440 
034760 051123 pense 020040 
034766 041440 051123 pense 
034774 020040 041440 05112 
03500. penne: 020040 041440 
att §2h458 052111 021440 DH6 ASCIZ /UNIT # TEST # FAIL # BUFEA ®BUFADR 
$ ‘ ‘a U A SHBE WAS/ 
035022 020040 042524 §e5438 . 
35030 021440 020040 040506 
035036 046111 021440 Osorce 
035044 05250 bese 20101 
035052 02004 83 50 beea os 
035060 bz segs Sood 412 
035066 2502 0 erst 020040 
$33906 b4 136 $0014 021440 DH7 ASCIZ /UNIT # TEST # FAIL # T-BUFF R-BUFF SHBE AS/ 
: . W 
035106 020040 $2554 052123 
035114 021440 020040 040506 
035122 046111 021440 020040 


Om 





CZKMEAO_ DMS11=DA DYNAMIC 
CZKMEA.P11 20-0CT-81 


6352 0351 

$32 0351 

6354 035144 
6355 0 2126 
6356 0351 

635 032198 
6358 035172 
6359 035200 
6360 035206 
6361 832533 
6 035 6 
63635 035 

6364 035236 
6365 035244 
6366 035252 
6367 035260 
6368 035266 
6369 o32678 
6370 035302 
6371 035310 
6372 035316 
6373 035324 
6374 035332 
6375 035340 
6376 035346 


035556 


6402 035562 
6403 055570 


atte 


SOSOSCOOOOOSCOCO 
RREVLRLRGRVRRUORERE 
NORAOOROA— 
=O] NNOU & 
M—RARWEVNOC KS 


Sooooooo 
—_ 
Ww 
on 


mr 


So 
3 
FUN OOWINOOW—QOMoqMinN1o & $980 


on 


SSSSSRE 
33 


No uv 


298 


RRVVRARRRVAR OD 
MMONMNOENMN— 
=n = Ou & 
M—NMOOfLO— Lf EN— 


on 
Mune 
Nos 


on) 


rary 
SOWING ONNOO S|] NN" OWIncos—wWwoorer 


ty ty tat at $4 ooooo 
MUMNRINIUW 
FELIS 
oo OOOoOoooooO 


w= Seu 
m= L£fONGO— 


SOWINGOL ACOs COW fWON 


SSSLSAPLERS FF 
Mok 


MACY11 30 
R 


SaUe S= 

We _ 

Sus ™ 
wo oOo 


MRMVUIPIMINLUP fF 
WOWONWNGSOS 


Soorna— 
Rast. 
NOoNS 


S 
men 


WIM UIPONON 
Mme anoowwoon 


Ww —— 
Sus WUWINOOWOS 


& 


VWNN 


=—NOo 

WM—-S ous 
SNMsfeNOf 
WNMOOWINGOS 


DH10: .ASCIZ 


DH11: .ASCIZ 


DH12: .ASCIZ 
DH13:  .ASCIZ 
DT1: . WORD 
DT2: . .WORD 
DT3: @ .WORD 


F 10 
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OUTINE TO SIZE MEMORY 


/UNIT # TEST # FAIL # LINE # CUR-EA CUR-ADR SHBE WAS/ 


/UNIT # TEST # FAIL # SHBE WAS aaah SRO CSR2 CSR4 


/UNIT # TEST # FAIL # WAS CSRO CSR2 CSR4& CSR6/ 


/UNIT # TEST # FAIL # LINE # T-BUFF SHBE CSR2 CSR4 


CUNIT, TSTNUM,ERNUM, SELO,0 

CUNIT, TSTNUM, ERNUM, SHBE ,WAS ,0 

CUNIT, TSTNUM,ERNUM, CURLIN,O 
“= 


SEQ 0122 


CSR6/ 


CSR6/ 


Om 
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035 002456 
0356 
0356 
032003 456 


es 
> 
al 


ROUTINE TO SIZE MEMORY SEQ 0123 
DT4: «WORD CUNIT,TSTNUM,ERNUM, CURLIN, CSRO,CSR2,CSR4,CSR6,0 


rs 
& 


rs 


Nm SOnmnvefr 


DTS: «WORD CUNIT,1STNUM,ERNUM, CURLIN, SHBE,CSRO,CSR2,CSR4,CSR6,0 


se ss 
ss ssssss 


RN AUP 


SP UWS 


. 


DT6: -WORD CUNIT,TSTNUM,ERNUM,RECBUF , SHBE ,WAS ,0 
DT7: «WORD CUNIT,TSTNUM,ERNUM, XOUT ,ROUT , SHBE ,WAS ,0 
DT10: .WORD CUNIT,TSTNUM,ERNUM, CURLIN, CUREA, CURBUF , SHBE ,WAS ,0 


DT11: CUNIT, TSTNUM, ERNUM, SHBE ,WAS,,CSRO,CSR2,CSR4,CSR6,0 


SSssssss SS Ssssss x 


vy yey ys MM RMT ff 


DT12: CUNIT, TSTNUM,ERNUM,WAS ,CSRO,CSR2,CSR4,CSR6,0 


D713: CUNIT, TSTNUM,ERNUM, CURLIN, XOUT , SHBE ,CSR2,CSR4,CSR6.0 


DF1: 1,0,0,0,0,0,0 


CCPFRM: 
’ 016777,123200.060520, 103405. 100400000423 ,063230,000401 


063233 ,000402 ,063232 000777 ,063231 010001 .004002,016403 
016403 ,004003 016601 ,016602,016777 016626016427 016403 


016406 016634 ,016625 ,016422,016436,016421 ,016405 ,016430 


Soooooeo 
par Peer Por Peer Peer Pear Peers 
NMI 
Soooo 

par Por Per Pes 
SEES 


016607 ,016435 ,016424 ,000400 061220 ,061222,110422,000560 


2 
z 


Ses 


063236 ,004400 073237062231 ,047634, 102473020661, 106532 


w 
SUFSSSASEE 


Ruka 


: 


102076 ,004420 ,073016,047634 ,020660,113745,113213,004420 


PoSRE 
PRA 
z 


OONOUFS Wo 
ano 
~“ 


ASA TAA TAA 
~ 

we 
So 

wy 

SERe 

— =«§fH —© 

BR -— Nw 

OW UO WN NS = 


z 
3 
S= 
# 


073417, 103446, 100453004420 063016, 100470 ,002012,000400 


BR 
: 


004420 06301 
01 pe938 
06 528 9339 . 063223057235 ,023601 ,063222,061620,061620.061620.061620 
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¢ 
- 
So 
re 
3 
2 
a3 
zs 


061620 


o6 tee -WORD 063721 ,061620,061620,063721 061620, 063721, 140632,102140 


038 20¢ -WORD 010003,004003 ,054362,101544,054362,101544 ,054362,101461 


onrel ~WORD 054362,101461,.014412,077223 054362, 101553063163, 101134 


900308 -WORD 060602,063223,000402,104543,070217,064214,074615,107553 


erie «WORD 016575,016400,100772,070217,064214,014414,002562,070017 


4 te -WORD 062602, 100461 ,002517,000414,070017,040362,101572,000410 


OR3gee eWORD 043223, 104543 ,043223,000401, 104572, 102201 ,016606,060615 


0 
Ace -WORD  100724,016517,014420,043223, 104543, 104543, 102323,004003 
9146) «WORD 010006,054362, 101461 ,054362,101713,054362,101717,003004 


944 036520 054362 haha 063164 «WORD  054362,101704 ,063164,101220,070077 064214 ,060615, 107553 


SFFEF SSFF 
BANA 3 Bs 

ooo oo So 
5 Saas 
SSees RASSy 
S23 SESss 
Saas Sues 
NMIV =-o 
SFLsVSsoVosssossee 


: 

So 

esses 
S253 


¢ 
a 
oo 
8 
RO 
x 
x 
SSO 


g 
oo 
) 

: 
RSSRS 
hh 
o 
Nm 
Wi 
nN 
Ww 
#000 


oo 
ss 
¥ 
Nm 
S 
= 
a 
o 
~ 
o-oo 
ft 
seeRess 
Re eR | 2 OU Ww 


SERR 
YWWSRUKuin 


ono 
FWNWWNUNWOS NS NS OWNWE DR = WOOO 


1 
0 
1 
1 
0 


036540 014775 Orr eee 060615 -WORD 014775,077225,060615, 103241 ,060602 062223 ,000402,063221 
0 0004 2 
036560 104424 062602 loses «WORD  104424,062602,104423,016517,054362,101650,000774, 104416 


-WORD 000403,104416,016517,054362,101657,000774,104416,000402 


wa 
WES 
on 
ROWS 
— 
So 
= 
NAO 


oa 

Ww 

So 

Ww 

: 

Nm 
nS 
o==0 

SR 

S 


«WORD 104416,002606,000414 070017040362, 101670,043222, 100624 


3 


q 
=) 
N 
oS 
RS 
vo 
= 
MONAO 
RS 
Nm 
on 
e 
N = N= 


—_ = 
eS 
wv oO 


0 
: «WORD 000401043223, 104572,023301,000776 063661 ,062234 .060461 


on 
Ww 
3 
oa 
RS 
NMrow 
[aw] 
3s 
SES 
Sus 
Owes 


gq 
i=) 
3 
e 
ND 
& 
= 


ee 


$2 -WORD 062234,000772,063225,104476,070077 , 064234 ,002661 ,000414 


io 
“ 
S 
N 


MMOININENS NN 


seg 
: 


«WORD 070017,062602,100461,070077 064214 002643, 100722,070077 


sss 
33 


i=] 

S 
NOON 

N 
ss 


1 
3 
$3 «WORD 064214,002652,063163,074615 056722, 107553, 103372,056222 


= 
So 
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6520 036740 060602 062223 042226 «WORD 060602062223 ,042226,056412,101362,056227,057222, 123221 
6521 036746 056412 101362 056227 

6522 036754 057222 123221 

652 330760 054661 th 96163) «WORD 054661,060702,061231 055230060603, 101752,056411,101352 
6524 036766 055230 060605 101752 

6525 036774 056411 101352 

6526 037000 056411 105454 000420 

6527 037006 orgie O6e733 120600 

6528 037014 102555 120620 s 

6529 037020 106007 100461 042227 -WORD 106007, 100461 ,042227,056413, 101366, 100736043222 000404 
6 037026 056413 101366 1007. 

6531 037034 043222 000404 

65 037040 076402 100737 076602 «WORD 076402,100737,076602,000411,070017,060603, 105403056411 
6533 037046 000411 070017 060603 

6534 037054 105403 056411 

6535 7060 105003 056411 105454 «WORD 105003,056411, 105454 ,070217,00042C 062735, 100461 ,063225 
6536 037066 070217 000420 062735 

6537 037074 100461 063225 

6538 037100 000500 060665 061231 -WORD 000500,060665 ,061231 000773063225, 104476,063225 060615 
6539 037106 000773 063225 104476 

6540 037114 063225 060615 

6541 037120 107076 000403 070017 «WORD 107076,000403,070017,003001 ,056222 042226056401, 105044 


6542 037126 003001 056222 042226 
54 71 05044 


03 1 
6544 037140 056227 057222 123221 «WORD 056227,057222, 123221 054661 .060702,061231,055230, 120600 
6545 037146 054661 2607 061231 


71 10603 106007 
037166 Ly eo th | eoecee 056413 
6550 037200 043222 000404 076402 eWORD  043222,000404 076402, 104432.070217,014401 ,063225,057221 
6551 037206 104432 070217 014401 


-WORD 106037,120620, 106007, 104476,042227,056413,105050, 104431 


000401 «WORD 057222,070217,000401 , 064334 074615076601 .076602 064214 
6554 oe see 064334 074615 076601 . 


19607! «WORD  107023,120600, 106071, 120620, 106007, 104476,004620,070217 


speed eWORD 042733064214 ,043221,076701,016517,016400,014410,057221 


Oo 
w 
w 
NI 
So 
Ww 
3 
r~ 
oa 
st 
™~m 
Ses 
™Nm 
i=) 
Sasa 
Soe 
3 


oa 
Ww 
Ww 
wo 
aS 
MON 
& 
=35 
g 
— 


=2n— 
ne UN 
NOW 
Ww 
MMU 


-WORD 056411,105454,000420,070217,062735, 120600, 102355, 120620 
«WORD 057222,057223.004002,010000 056413043227 ,062407.070207 


oooo 


004002 
043227 
6604 076601 -WORD 076617,016604 ,076601 ,076602 076603 ,062605 , 100461 000776 


oa 
w 
So 
be 
wa 
—_ 
™~ 
33 
& 
-—S 
Soooocoe 
$e 


=n 
) 
=—Aow 


=] 
S 
a 
on 
=—oo 
z 


& 
rs 
So 
Ss 
xe 
: 
aN 


s 


02330) -WORD 063225, 104476,023301 ,000776 063661 ,062234 ,060461 .062234 


106367 «WORD 057635,107553,104527,063225 ,023301 ,000776 063661 .062234 


S 


g 
N 
3 
. 
S 
SRRSRS 


Of 73 -WORD 060461062234, 104573,060535,107563.070217,000500,076715 


1045 
070217 


ay 
So 
me Ac 
wi 
an 
w 
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6576 037414 


o 
we 
oo 

co 
v 
~~ 
7 
oO 
o 
~ 
Ww 


000776 063661 


seat -WORD 062234, 100461063225 ,000410,004002,010000 056413043224 


043224 
070204 076617 «WORD 062404,070204 ,076617,016405 .076603 076602 .016400,076605 
076603 076602 


043620 ipegis -WORD 100461,043620,106614,110556,002720,004001 ,016621,002517 


o 
w 
co 
= 
o 
w 
~“ 
= 
a 
Oo 


gq 
co 
3 
& 
ARasFELVS 
3 


oO 

o 

W 

N 
YS 
wi 

= 

o 

4 
FERF 


o 
3 
e-=c0 
58 
SUES 


44 ah «WORD 004600,002517,070017,016600,002400,004001 ,002400,070017 


7 
’ ores -WORD 002601,000611,070317,064617,062231 ,002635 ,000673,062232 


060220 «WORD 000547,062230,060220,000400.002372,962230.,060220,000626 
037566 000400 002372 062230 


oa 
Ww 
co 
Oo 
oO 
w 
N“N 
ryt h ¢) thet > 
SRS 
oa 


o 
wi 
Oo 
So 
Ww 
“ 
w 
S 
So 
Ss 
ey 
NES 
WW — 
oS 


geese 
RES ER 

= 
gaescesss 
w38 


C 
Ci 
076715 
000440 104543 «WORD 002517,000440, 104543023301 ,000776 063661 ,062234 ,060461 


6597 037574 220 000626 

6598 037600 002232 062230 000421 -WORD 002232,062230,000421,062234,000401,002172,062230, 110556 

6599 037606 234 01 002172 

6600 037614 062230 110556 

6601 037620 123561 107214 061620 «WORD  123561,107214,061620, 106272, 106671,061620, 106711,060521 

6602 037626 106272 106671 061620 

6603 037634 106711 060521 

6604 037640 107723 110556 120400 «WORD  107723,110556,120400, 061620, 106704070216, 047634043635 

6605 037646 061620 106704 070216 

6606 037654 047634 043635 

6607 037660 113556 000500 062715 .WORD  113556,000500,062715, 110556,047634,057635,113556,002673 

6608 037666 110556 047634 057635 

6609 037674 113556 002673 

6610 037700 110556 070216 043634 «WORD  110556,070216,043634,113156,000420,062714,000412,070016 

6611 037706 113156 000420 062714 

6612 037714 000412 070016 

6613 037720 136500 122520 110556 «WORD  136500,122520,110556,123141,000437,063222,000740,063261 

6614 037726 123141 000437 063222 

oer O36 nats ara 060701 WORD 020700,060662,060701 062234, 110556,061620, 106740,070216 

6617 037746 062234 110556 061620 

rest $3770 besese roses 3635 WORD  047634,112556,043635, 107750, 064333,043635, 107750, 110556 

6620 037766 107750 bes3ss 3635 

re $20006 b00438 breeze 120400 WORD  000423,076675,120400,061620, 112405,016400, 136500, 136520 
g 04 300655 112405 016400 

rest: $20026 136308 606360 063260 WORD  123160,000700,063260,063120,063140,063140,063120,076520 

6626 040026 063120 063140 063140 ; : ; 5 

res hats peta hark 076561 WORD  123141,000437,076561, 111002, 123160, 063260,063160,076660 

040046 111008 123160 063260 
6630 040054 063160 076660 
6631 040060 123160 110556 123160 -WORD  123160,110556,123160,076660, 110556, 137160,014700,077260 
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6632 04 07 110556 137160 
6633 040074 014700 077260 
6634 040100 pent 0 bs 3140 -WORD 063120,063140,063140,063120, 136500, 136520,076520,016500 
6635 040106 063120 136500 156520 
6636 040114 076520 016500 
6637 040120 016421 104770 170610 -WORD 016421,104770,170610,004002,010000,043620,111514,076560 
6638 040126 004002 010000 043620 
6639 040134 111514 879389 
6640 040140 014410 04 $2 062405 “ORD 014410,043225 062405 .070205 ,054620,061620,061620,061620 
6641 0146 070205 054620 061620 : 
6642 040154 061620 pei gst 
6643 040160 961660 5 057625 WORD 061620,061223,057625,112103,113457,054411,061224,111060 
6644 040166 112103 113457 054411 
6645 040174 061224 111060 
6646 040 054411 061225 111061 «WORD 054411,061225,111061,057221 000404 ,060741,110462,055224 
6647 040206 057221 000404 060741 
6648 040214 A1088¢ 055224 
6649 0402 055225 054620 061620 -WORD 055225,054620,061620,061620,061620,061620,061227,055226 
6650 040226 061620 061620 061620 
6651 0402 061227 055226 
6652 040240 003 120440 060660 «WORD 003360,120440, 060660063305 .000600 ,060705 ,061222.060525 
6653 040246 063305 060705 
6654 040254 061222 060525 
6655 040260 113510 000604 110611 «WORD 113510,000604,110611,055224 ,055225 ,055226,055227,110470 
6656 040266 055224 055225 055226 
6657 040274 055227 110470 
6658 040300 123620 000700 061311 -WORD 123620,000700,061311,110501,123400,061620, 113120, 100447 
6659 0306 110501 123400 061620 
6660 040314 113120 100447 
6661 040320 000600 061300 060520 -WORD 000600,061300,060520,113526,000532,110611,000600,061231 
6662 040326 113526 000532 110611 
6663 040334 000600 061231 
6664 040340 000575 110611 123400 -WORD 000575,110611,123400,061620, 113163, 123077 ,000407,063277 
6665 040346 061620 113163 123077 
eee? 020360 063137 063157 063137 WORD 063137,063137,063137,073537 062231 .004600,060417,063236 
6668 040366 073537 062231 004600 
6670 040400 150400 193786 112556 WORD 120400,112154,112556, 104735, 106611, 104660, 123000,000500 
6671 040406 104735 106611 104660 
$67 040420 061560 00005 110611 WORD 061260,000423,110611,060600,113566,110514,060520,113571 
6674 040426 060600 113566 110514 
ere $0220 160407 000600 061231 WORD 100447,000600,061231,000575,110611,123400,061620,113201 

4 . e ° e . ° e e 

6677 040446 000575 110611 123400 
6609 020460 119855 060600 103447 WORD 110535,060600,103447,110514,123440, 103447,000500 061262 
6680 040466 110514 123440 103447 
ea? 020500 b00¢o5 065950 100447 WORD  000423,063230,100447,057635,154632,000401 .070016.002671 
eens 506 O57655 154632 000401 
68s 020890 000407 070016 120600 WORD 000407,070016,120600,112222,120620,112337,022420,023002 
6686 040526 112222 120620 112337 
6687 040534 022420 023002 
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6688 040540 110773 000411 070016 «WORD 110773,000411,070016,004000, 150632,016640,043222, 110773 
6689 040546 004000 130638 016640 
6690 040554 04 5e¢e 11077 
6691 040560 016635 016132 042230 <WORD 016635,016132,042230,070216,000420,062734,110714,063225 
6692 040566 970216 900420 062734 
6693 040574 110714 06322 
6694 040600 002172 000401 062230 .WORD 002172,000401,062230,110661,002172,000402,062230,000772 
6695 040606 110661 002172 000402 
6696 040614 062230 000772 
6697 040620 06 223 007200 070216 «WORD 063225,007200,070216,042733,064214,056700,016400,057221 
6698 040626 042733 064214 056700 
6699 040634 016400 057221 
6700 040640 057222 057223 054220 -WORD 057222,057223,054220,054620, 112276, 003000,004002,010000 
6 040646 054620 112276 003000 
6702 040654 004002 010000 
6703 040660 056413 043224 000410 -WORD  056413,043224,000410,062404 070204 ,076617,076600,076601 
6704 040666 062404 070204 076617 
6705 040674 076600 076601 
6706 040700 07660¢ 076603 062605 .WORD 076602,076603, 062605, 100467,000420,063221,070216,004000 
6707 040706 100467 000420 063221 

040714 070216 004000 
6709 040720 042721 004002 010000 «WORD 042721,004002,010000,056413,043224,000410,062404.070204 
6710 040726 056413 043224 000410 
6711 040734 062404 070204 
6712 040740 076617 010401 016400 -WORD 076617,016401,016400,016400,016400,002401, 100467,063225 
6713 040746 016400 015400 002401 
6714 040754 100467 063225 
6715 040760 000500 060665 061231 -WORD  000500,060665,061231,000773, 110647,000777, 110647,063225 
6716 040766 000773 110647 000777 
6717 040774 110647 063225 
6718 041000 060602 063221 061620 «WORD  060602,063221,061620,061620,061620,061620,063721,061620 
6719 041006 061620 061620 061620 
6720 041014 063721 061620 
6721 041020 061620 063721 061620 -WORD  061620,063721,061620, 063721000600, 060661, 060725, 063322 
6722 041026 063721 000600 060661 
6723 041034 060725 063322 
6724 041040 000410 070016 042722 «WORD 090410,070016,042722,002132,060602, 062230, 100467,060220 
6725 041046 002152 060602 062230 
6726 041054 100467 060220 
6727 041060 060614 117312 060615 -WORD 060614,117312,060615, 103467,016411,002172,000401,062230 
6728 041066 103467 016411 002172 
6729 041074 000401 062230 
6730 041100 100467 016465 900402 -WORD  100467,016465,000402,070016,042224,056412,043621 062225 
6731 041106 070016 04 324 05641 
O78 041120 astd be 2 ; 115062 WORD 076501,043221,115062,074461.061230,056411.115033,042411 
6734 041126 074461 O35$0 056411 
er 641126 113038 naa 110660 WORD  115033,000767,110660, 120600, 116033, 120620, 112337,034400 
6737 041146 120600 116033 120620 
ors $21 120 2523 Sa es04 060361 WORD  022420,003201,060361, 115452,003202.060362,115452,000401 
6740 041166 115433 003202 060362 ‘ ‘ : 
eri $1200 AyaGre Sos6e1 002132 WORD 070016,002671,002132,020400,062230,060220,002172, 000400 
6743 041206 020400 062230 060220 
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6744 041214 002172 0004 | 
6745 041220 06230 100467 000404 WORD 062230, 100467000604 ,062401,114423,002505,000605,070016 | 
6746 041226 062401 114423 002505 | 
6747 041234 0004605 07001 | 
6748 041240 O56411 119077 056411 WORD 056411, 115077,056411,115077,000401,070016,002621,000407 | 
6749 041246 115077 000401 070016 | 
6750 041254 002621 000407 | 
6751 041260 070016 037222 002400 WORD  070016,057222,002400,000400, 110747,060614, 113231,060535 | 
6752 041266 000400 110747 060614 
6753 041274 113231 060535 
6754 061 113634 000402 070016 WORD 113654,000402,070016,042224 ,056412,043621 ,062225,076501 
6735 041306 042224 056412 043621 
6736 041314 068225 07650) 

6757 041520 045221 119163 07446) WORD 043221, 115165,074461 ,061230,056411,115143,042611, 115143 

6758 041326 061230 056411 115143 

6759 041334 042411 115143 

6760 041340 042411 000401 070016 WORD — 042411,000401,070016,002621, 120600, 116134, 120620, 112337 

6761 061346 002621 120600 116154 

6762 041354 120620 112337 

6763 041360 023002 000400 110747 WORD — 023002,000400,110747,000401.070016,002570,000407,070016 

6764 041366 000401 070016 002570 

6765 041374 000407 070016 

6766 041400 116150 120620 WORD  120600,116150, 120620, 112337,022420,023002.000613,060762 

6767 041406 112337 022420 023002 

6768 041414 13 060762 

6769 041420 115563 000600 110747 WORD 115563,000600,110747, 000400, 110747,000404 ,062401,114522 

6770 041426 000400 110747 000404 

6771 041434 062401 114522 

6772 041440 14 113231 060535 WORD 060614, 113231,060535, 113654002505 ,000405,070016,056411 

6773 041446 113654 002505 000405 

6774 041454 070016 056411 
6775 041466 115210 056411 115211 -WORD 115210,.056411,115211 ,043222,000401 .070016,002621, 114617 | 
6776 041466 043222 000401 070016 | 
6777 041474 002621 114617 

6778 041500 054220 043222 000613 -WORD  054220,043222,000613,060762, 115617,000600.114620,000400 | 
6779 041506 62 115617 000600 

6780 041514 114620 000406 

6781 041520 110747 002626 000410 -WORD 110747,002626,000410,070016,043222, 110773.016745,002172 

6782 041526 070016 043222 110773 

6783 041534 016745 002172 

6784 041540 02 962250 100467 WORD — 000402,062230, 100467,060535, 113654 ,000402,070016,042224 

6785 041546 060535 113654 000402 

B7Be 041860 OSonIs. 048651 062225 WORD  056412,043621,062225 076501 043221, 115266,074461 .061230 

6788 041566 076501 043221 115266 

$790 061600 O56411 411915, 042611 WORD 056411, 111215,042411,111215,042411,.000401 070016002626 

6791 041606 111215 042411 000401 

$798 Gci623 100808 116560 120620 WORD 120600, 116260, 120620, 112337,023002, 110773,000404 062401 

B70% 041606 Ii2ss7 Oss0ee 170073 

Bro OcIs40 114646 OROSSS 113654 WORD  114646,060535,113654,002633,000405,070016,056411,115307 

6797 041646 002638 000405 070016 F ‘ 

6798 041654 056411 115307 

6799 041660 056411 115310 043222 -WORD 056411, 115310,043222,000401 070016, 002626, 110773,054220 
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6800 041666 000401 002626 

6801 041674 110773 054 $3 

os 041700 04 $6 110 002717 «WORD  043222,110773,002717,002172,000401 ,062230, 100467002732 
6803 041706 0021 9 062230 

6804 041714 100467 0027 

6805 041720 003008 12 070016 -WORD 004000,000412,070016,002132,042230,040222,000400,002172 
6806 041726 0021 042230 040222 

6807 0417 segs 00217 

6808 041740 062250 100467 016740 «WORD 062230, 100467,016740,004000,000413,070016,043222,110773 
6809 041746 004000 yg aEY 070016 

6810 041754 043222 11077 

6811 041760 01 002172 494 44 -WORD 016400,002172,000402,062230,110714,060535,117751,000401 
gale 041766 0622 110714 0605 

6813 041774 117751 000401 

6814 042000 110660 000766 110660 «WORD 110660,000766,110660,000600 , 000000 ,000000 000000 ,000000 
6815 042006 000000 000000 000000 

6816 042014 000000 000000 

6817 042020 907000 114761 001027 «WORD 001007,114761,001027,114763,001047, 114765 ,001067,114767 
6818 042026 1147635 901047? 114765 

6819 042034 001067 114767 

6820 042040 001107 114771 001127 WORD  001107,114771,001127,114773,001147,114775 ,001167,114777 
6821 2046 114773 001147 114775 

6822 042054 001167 114777 

6823 060 CCPEND: 

6824 

6825 

6826 
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S8s? 042060 BOPW32: 
rit 94 060 016777 123200 oath -WORD 016777,123200,060520, 103405, 100400000401 ,063230,000401 
68 066 103405 100400 000401 
6831 042074 06352 000401 
6832 042100 06 $55 B08 0 063226 «WORD 063227 ,000402 ,063226 000777 ,063231,010001 ,004002,016403 
68335 042106 000777 063231 010001 
6834 042114 sieve y A 9434 
6835 0421 00240 00 061220 «WORD 002403,000400,061220,061222, 114400, 000560 , 063236 004400 
os 042126 061222 114400 000560 
6837 0421 0632 004400 
6838 Bes i2e 073237 062231 047634 «WORD 073237062231 047634, 102451 .020660, 102054, 102606004420 
6839 042146 102451 020660 102054 
6840 042154 102606 004420 
6841 042160 0735016 047634 020660 -WORD 073016,047634 ,020660, 107664107003 ,004420,073417, 103424 
6842 042166 107664 107003 004420 
6843 042174 073417 103424 
6844 042200 100431 004420 063016 WORD 100431,004420,063016, 100446,020660, 102606 ,002012,057635 
6845 042206 100446 020660 102606 
6846 042214 opis 057635 
6847 042220 103715 140620 000403 WORD 103715,140620,000403,070017,056406,101070,070077, 100477 
6848 042226 070017 96508 101070 
6849 042234 070077 10047 
6850 042240 056407 101073 100466 WORD 056407,101073,100466,043220,000404 076400, 100466,016505 

51 042246 043220 000404 076400 

6852 042254 100466 016505 
6853 042260 036600 000420 070217 -WORD 036600,000420,070217 062735, 100437016462 056222022203 
6854 042266 062735 1004 016462 
6855 042274 056222 022203 

. 6856 042300 056226 056227 057220 «WORD 056226,056227,057220, 123221 ,054661 ,061311,055230,056411 
6857 042306 123221 054661 061311 
6858 042314 055230 056411 
6859 042320 101123 056411 101631 «WORD = 101123,056411, 101631 ,000420,070217,062735 120600, 102126 
6860 042326 000420 070217 062735 
6861 042334 120600 102126 
6862 042340 120620 102374 100437 «WORD 120620,102374, 100437003000 .016462 ,036600,004600,070217 
6863 042346 003000 016462 036600 
6864 042354 600 070217 
6865 042360 042727 064214 043221 -WORD 042727 ,064214 ,043221,062701 ,004002,010000 056407043224 
6866 042366 062701 004902 010000 
6867 042374 056407 043224 _ 
6868 042400 000410 062404 070204 «WORD 000410,062404 ,070204 ,016604 ,076617,076614 ,076600,016400 
6869 042406 016604 076617 076614 
6870 055038 076600 016400 
6871 042420 000401 062620 100437 «WORD 000401,062620,100437,016601 .022600 000403070017 056406 
6872 peseee 016601 022600 000403 
6873 0424 070017 056406 
6874 042440 101172 100501 996507 «WORD = 101172,100501,056407, 101175, 100571 ,043220,000404 .076400 
6875 042446 101175 100571 043220 
6876 042454 000404 976300 
6877 042460 100571 025200 100536 «WORD 100571,023200, 100536,016601 ,036600, 100501 ,002052,057635 
6878 042466 016601 besege 100501 
6879 042474 002052 05763 
6880 042500 103621 023605 060525 «WORD 103621 ,023605 ,060525,, 103302 ,060605 ,061620, 102623102244 
6881 042506 133298 060605 061620 
6882 042514 102623 102244 
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023300 
000776 


000771 
023300 
060615 
070217 
000410 
056407 
076617 
016400 


042727 
076701 


043220 
016404 


062604 
000500 


100750 
147232 


100437 ,020200, 100715 ,000771 ,063224 ,000420,070217,076715 
100750, 120600, 102231, 120620, 102374 ,057625 ,070077, 103242 
002533, 100501 ,002563, 100501 ,002012,074615 023204103251 
062604 ,003200,070217,042700,004000,056727,004002,010000 
000410056407 ,043220,062400,070200,016604 ,076617,076614 
076604 ,076605 ,023700, 102676002402, 100437,002774 000773 
062274 , 100437 ,023300,000770 ,062274 ,000776 063224 000420 
070217 ,076715,000771 ,062274 , 100750,023300,000770,062274 
000771 ,062274 ,060615 ,061620, 103037,070217,000440,062715 
000404 ,063225 ,000410,004002,010000 056407 043224 ,062404 
070204 ,016405 ,076617,016400,016400,016400,076605, 100437 
004600 070217042727 ,064214 ,043221,076701 ,000410,004002 
010000 ,056407 ,043220,062400,070200,016404 .076617,076614 
016400 ,016400, 062604, 100437 ,063204 ,000500 , 060664 ,061231 
000773 ,063224,100750,057635, 103445, 147232,016132,056230 
000420070216 ,062735, 100445 ,062233,016447,016172,014401 
062230 ,042224 ,056406, 105037056225 ,055230.000402,070016 
120600, 106030, 120620, 106652 .036400 036420, 100445 ,042225 


056407, 105043, 104425 ,041230,003004 ,056404 , 104426,016464 





\ 
4 
4 
t 
t 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
t 
t 
t 





dD 11 
CZKMEAO DMS11-DA DYNAMIC MACY11 30A(1052)_ 21-OCT-81 08:50 PAGE 133 
CZKMEA.P11 20-OCT-81 17: ROUTINE TO SIZE MEMORY SEQ 0133 


—_ 
~N 
So 
wa 


( 
¢ 
6939 043174 1044 164 ( 
6940 0% 00 0021 0562 g 0004 «WORD 002132,056230,000400,060220,002172, 062230, 100445,016574 ( 
6941 220 002172 062230 C 
6942 043214 100445 016574 ( 
6943 04 104450 062233 016457 «WORD  104450,062233,016457, 104416,016132,054220,056230,042224 C 
6944 043226 104416 016132 054220 ¢ 
6945 043234 056230 04 224 ¢ 
6946 043240 056406 105123 056225 «WORD 056406, 105123,056225,055230,056411,105100,042411, 105512 ¢ 
6947 043246 055230 056411 105100 ¢ 
6948 043254 042411 105512 ( 
6949 043260 070216 000420 076735 «WORD 070216,000420,076735, 134600, 106114, 120620, 106652,036400 ¢ 
6950 043266 134600 106114 120620 ( 
6951 043274 106652 036400 ( 
6952 043300 0364 9 100445 070076 «WORD  036420,100445,070076,016533, 120600, 106114, 120620, 106652 ( 
6953 043 016533 120600 106114 ( 
6954 043314 120620 106652 
6955 043320 036400 036420 100445 «WORD  036400,036420,100445,042225,056407, 105127, 104473,041230 ( 
6956 043326 042225 056407 105127 
6957 043334 104473 041230 C 
6958 043340 003 056404 104474 «WORD  003004,056404,104474,016574,043221,000411,070016,043622 ¢ 
6959 043346 016574 043221 000411 ( 
6960 043354 070016 043622 
6961 043360 107170 00¢37¢ 063122 «WORD 107170,002372,063122,063122,063522,062602,060522,062230 
6962 043366 063122 063522 062602 
6963 043374 060522 062230 ( 
6964 043400 060220 060601 002132 «WORD 060220,060601,002132,062230,000402,060220.002172,062230 ¢ 
6965 043406 062230 02 060220 { 
6966 043414 002172 062230 C 
6967 043420 070216 054620 061620 «WORD 070216,054620,061620, 107166,002615, 100445,002603, 100445 
6968 043426 107166 002615 100445 
6969 043434 002603 100445 c 
6970 043440 002132 060601 062230 «WORD 002132,060601,062230, 100445,054220,054220,057221,000411 c 
6971 043446 100445 054220 054220 c 
6972 043454 057221 000411 C 
6973 043460 070016 043222 104541 «WORD 070016,043222,104541,016610,002172,000401 ,062230, 100445 rl 
6974 043466 016610 00217¢ 000401 C 
6975 043474 062230 10044 nl 
6976 043500 002615 002172 000401 -WORD 002615,002172.000401,062230, 100445 ,007200,070216,042727 c 
6977 043506 062230 100445 007200 
oo8 $2380 Oreste pee78s 000411 WORD  064214,056700,000411,070016,043225,004002,010000,056407 t 
6980 043526 070016 043225 004002 * c 
ready weir easy $3629 062404 WORD 043224,000410,062404 070204 ,016400.076617,076614,054220 t 
6983 043546 070204 016400 076617 c 
ooes eirhy iordys $3 4560 061620 WORD 076605,023700,061620, 106646,002401,100445,002774,000775 t 
6986 043566 6 002401 100445 c 
eats $23200 eso Opole 063224 WORD 062274,100445,063224 000500, 060664 061231 ,000773,063224 t 
* ° 4 ° e e e e ° 
6989 043606 500 060664 061231 "i 
oon P3656 isa arty 062230 WORD  002172,000404 062230, 104673,002172,000777,063224 000401 t 
6992 043626 10467 002172 067630 “ 4 : : : : ¥ ( 
6993 043634 063224 000401 c 
6994 043640 062230 043635 103445 «WORD 062230,043635,103445,007200,070216,042727,064214,056700 E 
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( 
( 
6995 043646 007200 070216 042727 t 
6996 043654 064214 056700 E 
6997 04 004 2 10009 056407 «WORD 004002,010000,056407,043220,000410,062400,070200,016400 E 
6998 04 043220 000410 062400 E 
6999 043674 070 09 016400 E 
7000 045700 076617 076614 054220 «WORD  076617,076614,054220,016400,062604, 100445,043620, 106721 E 
FOO? Oa3rie O4seo0 Seeset Ot H 
700 823536 rhea} 002740 004001 «WORD  114673,002740,004001,002701,004600,070017,002700,004001 E 
7004 043726 002701 004600 070017 E 
7005 043734 002700 004001 E 
7006 043740 002701 73 062232 «WORD 002701,000673, 062232, 000407, 062230, 060220,000400,002372 E 
7007 043746 07 062230 060220 E 
7008 043754 00 002372 E 
7009 043760 062230 000431 062234 «WORD 062230,000431, 062234, 114673, 123561, 107321,061620, 112000 E 
7010 043766 114673 123561 107321 E 
7011 043774 061620 112000 E 
2 044000 106754 060521 113472 «WORD  106754,060521, 113472, 114673,004002,010000,056407,043220 E 
7013 044006 114673 004002 010000 E 
14 044014 056407 043220 E 
7015 044020 000410 062400 070200 «WORD 000410,062400,070200,016405,076617,016400,016400,023260 E 
16 044026 016405 076617 016400 E 
7017 044034 016400 023260 E 
7018 044040 000410 060660 061620 «WORD  000410,060660,061620,061620,061620.076620,002410, 114673 E 
19 044046 061620 061620 076620 E 
7020 044054 002410 114673 E 
7021 044 120400 061620 112436 «WORD  120400,061620,112436,070216,047234, 043635, 117673,002172 E 
7022 044 970216 047234 043635 E 
7023 044074 117673 002172 E 
7024 044100 000404 062230 000772 «WORD  000404,062230,000772,063224,007200,042727,064214,056700 E 
25 044106 063224 007200 042727 E 
7026 044114 064214 056700 
7027 044120 004002 010000 056407 «WORD 004002,010000,056407,043220,000410,062400,070200,016400 
7028 044126 043220 000410 062400 
7029 044134 970200 016400 
7030 044140 076617 076614 016400 «WORD 076617,076614,016400,016400,016772, 114673, 047234043635 
31 044146 016400 016772 114673 
7032 044154 047234 04363 
7033 044160 117673 000776 023301 «WORD  117673,000776,023301, 063661 ,062234 060461 ,062234,004600 
34 044166 063661 062234 060461 
7035 044174 062234 004600 
7036 044200 042727 064214 043221 «WORD 042727,064214,043221,076701,014410,004002,010000,056407 
7037 044206 076701 014410 004002 
38 044214 919900 056407 
7039 044220 043 062600 070200 «WORD 043220,062400,070200,016404,076617,076614,016400,016400 
Y Reser lett Bretay reer 
7042 0442460 016772 114673 123141 «WORD 016772,114673, 123141,000437,063222,000740,063261,020700 
7043 044246 063002 000740 
be: ve 26 wana aaa 062234 WORD  060662,060701,062234, 114673, 120400, 061620, 112605,070216 
. a om a e e 6 e eo 
7046 044266 96066 120400 061620 
ts b¢4 56 bu or eeys 043635 WORD  047634,116673,043635,113521,000401 064334 .043635, 113524 
7049 044 T3531 000401 B62 832 : : ‘ 7 : . : 
7050 044314 043635 113524 
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-WORD 114673,060535,113527,110514,060535,113527,114673,054220 


&~ 
FEF 
So 
Os 
per 
tes 
~“N 
Ww 
oo 
ay 
SANae 
oouw 


Secgae 

3 
SSREELEES 

osseaasees 


3 
zg 
Ereee 
gs 


=F 
oo 


& 


7 
7 
8 «WORD 016414,054220,054220, 136500, 136520, 123160,000740,063260 
0 


NUEO 


«WORD 063120,063140,063140,063120,063120,076460,123141,063161 


OAne 
==So 


063260 -WORD  123160.,000401 ,063250,111156,063160,063260,063161,111166 


S2SS=lSSES=q 
& 
WwW 


WNW 


oroere «WORD 063160,111166,070076,002461 ,000407,070016,076601 ,000401 


p03 38 «WORD 076660,123160,000436,076660 000440 ,063260,000420,063300 


greets «WORD 000403,060675 ,070216,076700,114673,047634,116673,043635 


O64 «WORD = 113616,000401 064334 ,043635,113621,114673,060535,113624 


113698 -WORD = 110611,060535,113624,114673,054220,016477,054220, 136500 


oO 48 «WORD  136520,123160,000740,063260,063120,063140,063140,063120 


oresel «WORD 076520,016500,016421.,123140,000402,076740,111671,111257 


33 


NS 
es e 
z 
333 
oF#o 
$s = 
6 
on 
wanes nm 
eiereues 
SUSSUESSS GROSSES SSS SS 


$ 
ze 


sess 
SSS% 
4 
& 
ERNE SSNSS 
ms 
-O—— 
PRARIAS 
BOTAN ANS RAN 
2SS8sSSSSN=uy4 
l=] —— OS 
tes 
Si td aod = LI 


—— 3 O 
NmM—rnN 
— 
—_ 
_ 
™ 


-WORD  123160,000401 ,063260,063160.076660, 123160, 110662,123160 


3S 
3 


063260 
076660 123160 
076660 000436 «WORD 000401,076660,000436.076660.,000403 ,060675 .079217.,076675 
000403 060675 


see 
3335 
ERNE SSNS See ay 
—Oo00— 
as 
SSSan 
w 
Jvess 


Ng ove 
Ww 
_ 
™ 
pay 
s 


000401 «WORD 114673,123160,000401 ,063260,063160,111700,076660, 110662 
7091 044646 Bg3 60 063160 111700 


413203 «WORD 070077,123560,113305,002533,110706,002603,000412,070017 


3s 
=ses 
FETS 


060220 060220 «WORD 110662 ,060220,060220,060220 ,060220.060220,060220,060220 
060220 060220 


2 068 33 «WORD 060220,060220,060220,060220 060220 ,060220 060220060220 


$58 060¢ 0 «WORD 060220,060220,060220,060220 060220 060220 ,060220,060220 


0 
0 060220 LWORD — 060220,060220,060220,060220,060220,060220.060220,060220 
060220 060220 06 2 060220, 06 220,06022 


MAPNoNMPoNononofony» 
SSSSSSssssnnwn 
Nm 


3 
4 
3 
gs 
nm 
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5306 070017 056222 062203 


7107 044774 060220 060220 
7108 045000 060 0602 8 popes «WORD 060220,060220,060220,060220 ,060220,060220,060220,060220 
7109 045006 060 060 060220 
7110 5014 pensse 060 5 
7111 5020 060220 060220 060220 «WORD 060220,060220,060220, 060220060220 ,060220 ,060220,060220 
aay; 045026 penssy 060220 060220 
7113 045034 060220 060220 
7114 045040 060220 060220 060220 «WORD 060220,060220,060220 060220060220, 060220 .060220,060220 
sig ieee ies assy Sie 
7117 045060 174610 004002 010000 -WORD 174610,004002,010000,043620,115606,076560,014410,043225 
7118 045066 043620 115 076560 
7119 045074 014410 04322 
7120 045100 062405 070205 057625 «WORD 062405,070205 057625, 116167.057637,061620,061620,061620 
7121 045106 116167 057637 061620 
7122 045114 061620 061620 
7123 045120 061620 061223 057234 «WORD 061620,061223,057234,057220,000560,057222 ,060662 061620 
7124 045126 057220 000560 057222 
7125 045134 0662 061620 : 
7126 045140 061620 061620 061620 «WORD 061620,061620,061620,063223 ,055226,064214 060605 ,061620 
7127 045146 063223 055226 064214 
7128 045154 060605 061620 
7129 045160 116500 000600 070017 «WORD 116500,000600,070017 043221 ,000500,076701 .014420,074661 
7130 045166 043221 000500 076701 
7131 045174 014420 074661 
7132 045200 061620 077303 055224 «WORD 061620,077303,055224,055225 ,057220,063120,063120,063120 
7133 045206 055225 057220 063120 
7134 045214 063120 063120 
7135 045220 063120 000700 060660 «WORD 063120,000700,060660,060703 061227003360, 120440,060660 
7136 045226 060703 061227 003360 
7137 045234 120440 060660 
7138 045240 063305 000600 060705 «WORD 063305,000600,060705 ,061222.060525,117602,000700,114705 
7139 045246 061222 060525 117602 
7140 045254 700 114705 
7141 045260 070217 043221 000500 «WORD 070217,043221 000500 .062701 ,000420 060661 ,061620,063303 
7142 045266 062701 000420 060661 
7143 045274 061620 063303 
7144 Oe he 060605 117552 000402 -WORD 060605,117552.,000402,070017,056222 ,062203 056226056227 
7146 045314 056226 056227 

7147 045320 057220 \e3s¢! 054661 «WORD 057220, 123221 ,054661 ,061311,055230,000403,070017,054406 
7148 045326 061311 055250 000403 

7149 045334 070017 054406 

7150 045340 O61 <e8 057220 061105 «WORD 061224,057220,061105,115135,114540,043220.,000404 062400 
7151 045346 115135 114540 043220 

7152 045354 000404 062400 

7153 045360 120600 116140 120620 «WORD 120600,116140,120620,116145,114454 000400061231 ,000773 
7154 045366 116145 114454 000400 

7155 045374 061231 000773 

7156 045400 061658 114454 060601 «WORD 061226,114454,060601,117112,000403,070017,056406,043220 
7157 045406 117112 000403 070017 

7158 045414 056406 04322 

7159 045420 Or 9388 115165 114512 «WORD 076500,115163,114512,043221 ,000404 ,076401,114512,054620 
7160 Reeege 043221 000404 076401 

7161 0454 114512 054620 

7162 045440 061620 061620 


061620 «WORD  061620,061620,061620,061620,061223,055224 ,055225 055226 
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7163 045446 061620 S61¢¢3 055224 K 
7164 045454 055225 055226 : K 
7165 045460 055 4 114465 le7ee0 sWORD 055227,114465, 123620,000700,0613i% . 114476, 123400,061620 K 
7166 045466 061311 114476 K 
7167 045474 123400 061620 K 
7168 045500 117212 100425 123400 -WORD 117212,100425,123400,000600 .061300,060520, 117621000625 K 
7169 045506 000600 061300 060520 K 
7170 045514 117621 000625 K 
7171 =045520 114705 00 061231 «WORD 114705,000600,061231 ,000664 114705, 123400,061620,117251 K 
7172 045526 000664 114705 123400 K 
7173 045534 061620 117251 K 
7174 045540 123077 000407 063277 -WORD  123077,000407 063277 .063137,063137,063137,073537,062231 K 
7175 045546 063137 063137 063137 K 
7176 045554 073537 062231 a L 
7177 045560 004600 060417 063236 «WORD 004600,060417',063236,120400, 116247,116673,110504, 106716 L 
7178 045566 120400 116247 116675 L 
7179 045574 110504 106716 L 
7180 045600 104744 060600 117655 «WORD 104744,060600,117655,114606,000001 ,060520, 117660, 100425 L 
7181 045606 114606 000001 060520 L 
7182 045614 117660 100425 L 
7183 045620 061231 000664 WORD 000600,061231,000664,114705,123400,061620,117270,114630 L 
7184 045626 114705 123400 061620 mM 
7185 0456 117270 114630 4 
7 045640 06 103425 114606 «WORD 060600, 103425,114606,123000,000500,061260,000401,114705 M 
7187 045 123000 000500 061260 M 
7 045654 000401 114705 M 
7189 045 123440 103425 000500 «WORD 123440,103425 000500, 061262 ,000401 ,063230, 100425 ,000000 M 
7 5 067262 000401 063230 M 
7191 045674 100425 000000 M 
7192 045700 000000 000000 000000 «WORD 000000,000000 000000 ,000000 ,000000 , 000000, 000000 ,000000 L 
7193 045706 000000 000000 000000 
7194 045714 000000 000000 
7195 045720 000000 000000 000000 «WORD 000000,000000 ,000000 .000000 .000000 .000000 ,000000 000000 4 
7196 045726 000000 000000 000000 
7197 045734 000000 000000 M 
7198 045740 000000 000000 000000 «WORD 000000,000000 ,000000 , 000000 ,000000 000000 .000000 .000000 My 
7199 045746 000000 000000 000000 N 
7200 045754 000000 000000 N 
7201 045760 000000 000000 000000 «WORD 000000,000000 000000 ,000000 ,000000 ,000000 ,000000 .060000 P 
7202 045766 000000 000000 000000 P 
7203 045774 000000 000000 P 
7204 04 000000 000000 000 «WORD 000000,000000 ,000000 ,000000 .000000 ,000000 ,000000 .000000 P 
7205 04 000000 000000 000000 P 
7206 046014 000000 000000 P 
7207 046020 001007 114761 001027 «WORD 001007,114761,001027,114763,001047,114765 .001067.114767 P 
7208 046026 114763 001047 114765 P 
7209 046034 001067 114767 P 
7210 046040 001107 114771 001127 WORD = 001107,114771,001127,114773,001147,114775,001167,114777 P 
7211 046046 114773 001147 114775 P 
7212 046054 001167 114777 P 
721 P 
7214 P 
7215 046060 BOPEND : P 
7216 P 
7217 046060 BOPN32: P 
7218 046060 016777 123200 060520 «WORD 016777,123200,060520, 103405, 100400000401 ,063230,000401 P 
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1 
7219 046066 103405 1o0e 00 000401 


C 
C 





7220 046074 063230 0004 P 
oss! 046100 06 $f 00 9 063226 «WORD 063227 ,000402 ,063226,000777,063231 ,010001 ,004002,016403 
72 . 046106 000777 063231 010001 P 
7225 046114 004002 016403 P 
7224 046120 00240 061220 «WORD 002403,000400,061220,061222,114400,000560,063236,004400 P 
7225 peel ee posse 114400 000560 R 
7226 0461 0632 004400 R 
7227? 046140 073237 062231 047634 «WORD 073237 ,062231,047634,102451 020660, 102054, 102606004420 
7228 046146 102451 020660 102054 R 
7229 046154 102606 Bos ee? R 
7630 046160 14 9g 0476354 020660 «WORD 073016,047634 ,020660, 107625, 107001 ,004420,073417, 103424 R 
1 046166 107625 107001 004420 R 
7232 046174 073417 103424 R 
7233 046200 100431 0 063016 «WORD 100431 ,004420,063016, 100446,020660, 102606,002012,057635 R 
7234 046206 100446 020660 102606 R 
7235 046214 002012 057635 R 
7236 046220 103713 140620 000403 -WORD 103713,140620,000403,070017,056406.101070,070077, 100477 R 
7237 046226 070017 056406 101070 R 
7238 046234 070077 100477 R 
7239 046240 056407 101073 100466 «WORD 056407,101073,100466,043220,000404 ,076400, 100466,016505 R 
7240 046246 043220 000404 076400 R 
7241 046254 100466 016505 R 
7242 046260 036600 000420 070217 «WORD 036600,000420,070217,062735 , 100437,016462 056222022203 
7243 046266 062735 100437 016462 
7244 046274 056222 022203 R 
7245 046300 056226 056227 057220 «WORD 056226,056227,057220, 123221054661 ,061311,055230,056411 R 
7246 046306 123221 054661 061311 R 
7247 046314 055230 056411 R 
7248 046320 101123 056411 101631 «WORD = 101123,956411,101631.000420,070217.,062735, 120600, 102126 R 
7249 046326 20 070217 062735 R 
7250 046334 120600 102126 
7251 046340 120620 102372 100437 «WORD 120620,102372,100437,003000.016462 036600 ,004600,070217 A 
2 046346 003000 016462 036600 R 
7253 046354 004600 079217 R 
7254 046 042727 064214 043221 «WORD 042727 ,064214,043221 ,062701 .004002.,010000 056407043224 S 
7255 046 062701 004002 010000 S 
7256 046374 056407 043224 
7257 0464 10 062404 070204 «WORD 000410,062404 ,070204 ,016604 ,076617,076614 ,076600.016400 
7258 046406 016604 076617 076614 
1506 046420 000201 065600 100437 WORD 000401,062620,100437,016601 ,022600 000403 ,070017,056406 
7261 046426 016601 022600 000403 
7262 046434 070017 056406 
7263 046440 101172 1005C1 056407 WORD = 101172,100501,056407, 101175. 100571 .043220,000404 ,076400 
046446 10117 hs 5h 043220 
1566 96260 tityal 0 $300 100536 WORD  100571,023200, 100536,016601 ,036600, 100501 ,002052,057635 
7267 046466 016601 03600 100501 
1569 626500 108631 035608 060525 WORD 103621,023605 060525, 1033500,060605 .061620, 102623, 102244 
70 0465 103300 060605 061620 
1593 046520 100037 020900 100713 WORD 100437,020200,100713,000771 .063224,000420,070217,076715 
7273 046526 000771 063204 000420 
7274 0465 070217 076715 
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75 046540 100746 12 106e31 «WORD 100746,120600, 102231, 120620, 102372,057625 070077, 103242 
7276 046546 Jede0 19 72 057625 
7277 046554 0700 10324 
7278 046560 002533 100501 002563 -WORD 002533, 100501002563, 100501 .002012,074615 023204, 103251 S| 
566 100501 002012 074615 S| 
72 046574 023204 io3s3e S| 
7281 062604 003200 070217 -WORD 062604 ,003200,070217,042700,004000,056727,004002,010000 
042700 004000 056727 
7283 046614 004002 010000 
72 046620 000410 056407 043220 -WORD 000410,056407 ,043220,062400,070200,016604 ,076617,076614 
7285 046626 062400 070200 016604 
72 046634 076617 076614 
7287 046640 076604 076605 060605 -WORD 076604,076605 060605 . 103676,002402, 100437002774, 100437 
046646 103676 saa 3 100437 
7289 046654 002774 10043 
023300 000770 062274 «WORD 023300,000770,062274 ,000776,063224 ,000420,070217,076715 
7291 000776 063224 000420 
7292 046674 070217 076715 
7293 046700 000771 062274 100746 «WORD 000771 ,062274,100746,023300,000770,062274 ,000771 .062274 
7294 046706 023300 000770 062274 
7295 046714 71 062274 
046720 060615 061620 103037 «WORD 060675,061620,103037,070217,000440,062715 000404 ,063225 
7297 046726 070217 062715 
7298 046734 063225 
7299 046740 000410 004002 010000 -WORD 000410,004002,010000 056407043224 ,062404 .070204 016405 
7300 046746 056407 043224 062404 


016400 -WORD 076617,016400,016400,016400,076605 , 100437 ,004600,070217 
ie 046766 es 076605 100437 


7305 047000 042727 064214 043221 «WORD 042727,064214 ,043221 ,076701 ,000410,004002,010000,056407 
7 006 076701 000410 004002 


20 062400 070200 -WORD 043220,062400,070200,016404 ,076617,076614 ,016400,016400 
arses 076614 


047034 
7311 047040 062604 100437 063224 «WORD 062604, 100437063224 ,000500 , 060664 ,061231 ,000773 063224 
7312 047046 000300 060664 061231 


100746 103445 «WORD  100746,057635, 103445 ,147220,016132,056230,000420,070216 
7315 047066 147220 016132 056230 


0004 
06273 100445 016444 «WORD 062735, 100445 ,016444 ,016172,014401 062230042224 ,056406 
6172 deed 062230 


06 
05034 056225 055230 «WORD 105034 ,056225 ,055230,000402.070016, 120600, 106025120620 
070016 120600 


036400 036420 -WORD  106213,036400,036420, 100445 ,042225 056407, 105040, 1044 
042225 056407 - . — 


003004 026608 «WORD  041230,003004 ,056404 , 104423,016460,002132,056230.000400 


o6ee7e «WORD 060220,002172,062230, 100445016556, 104445 ,016454, 104413 


=) 


SEEN 
re 


Mw 
&—"™ 
MWOOWOS UNUM & SMU 
: 
&* 


~ 
nS 
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Nm 
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CZKMEA.P11 20-0CT-81 17:05 ROUTINE TO SIZE MEMORY SEQ 0140 

7331 047214 016454 104413 
T3388 047220 016132 S2eeee 056230 eWORD 016132,054220,056230,042224 ,056406, 105112,056225 055230 
334 Qu7984 036505 055330 
7335 0472460 056411 105074 042411 -WORD  056411,105074,042411,105501,070216,000420,076735 ,054220 
7336 047246 105501 670536 000420 
7337 047254 076735 05422 
7338 047260 104503 14 14 016522 -WORD  104503,070076,016522, 120600, 106103, 120620, 106213,036400 
7339 047266 120600 106103 120620 
7340 047274 106213 036400 
7341 047300 036420 100445 042225 «WORD 036420,100445 ,042225 ,056407, 105116, 104467,041230,003004 
7342 047306 056407 105116 104467 
73435 047314 041230 003004 
7344 047320 956404 104470 016556 «WORD 056404,104470,016556,043221,000411,070016,043622,107152 
7345 047326 043221 000411 070016 
7346 047334 043622 107152 
7347 047340 pogess 063122 063122 -WORD 002372 ,063122,063122,063522 062602 ,060522,062230,060601 

047346 06 366 062602 060522 T 
7349 047354 062230 060601 T 
7350 047360 060220 002132 062230 «WORD 060220,002132,062230,000402 ,060220.002172,062230,070076 T 
7351 047 000402 060220 002172 T 
7352 047374 062230 070076 T 
7353 047400 002565 100445 002132 -WORD 002565, 100445 ,002132,060601 ,062230, 100445 ,054220,054220 T 
7354 047406 060601 062230 100445 T 
7355 047414 054220 054220 T 
7356 047420 057221 000411 070016 -WORD 057221,000411,070016, 043222, 104530,007200.070216,042727 T 
7357 047426 043222 104530 007200 T 
7358 047434 070216 042727 T 
7359 047440 064214 056700 000411 «WORD 064214,056700,000411,070016,043225 ,004002.010000,056407 T 
7360 047446 070016 043225 004002 T 
7361 047454 010000 056407 T 
7362 047460 043224 000410 062404 «WORD 043224 ,000410,062404 ,070204 ,.016400.076617.076614 054220 T 
7363 047466 070204 016400 076617 T 
7364 047474 076614 054220 T 
7365 047500 076605 002401 100445 «WORD 076605 ,002401, 100445 ,063224 ,000500 060664 .061231 .000773 T 
7366 047506 063224 000500 060664 T 
7367 047514 061231 000773 T 
7368 047520 063224 002172 000404 «WORD 063224,002172.000404 ,062230, 104634 ,002172,000777.063224 T 
7369 047526 0622 104634 002172 T 
7370 047534 000777 063224 T 
7371 047540 000401 062230 043635 «WORD 000401 ,062230,043635 , 1034 45,007200,070216,042727,064214 T 
7372 047546 103445 007200 070216 T 
7373 047554 042727 064214 T 
7374 047560 056700 004002 010000 «WORD 056700,004002,010000,056407 ,043220.000410,062400.070200 T 
7375 047566 056407 043220 000410 T 
7376 047574 062400 070200 T 
7377 =047 016400 076617 076614 -WORD 016400,076617,076614,054220,016400,062604 , 100445 ,043620 T 
7378 047 054220 016400 062604 T 
7379 047614 100445 96 7668 T 
7380 047620 106662 1nS8 2 002740 «WORD 106662,114672,002740,004001 ,002701 ,004600,070017.002700 T 
7381 Rereer 004007 002701 004600 
F383 047620 604001 005704 000400 WORD 004001 ,002701 ,000400,002372,062230,000421 .062234,114672 
7384 047646 002372 069530 000421 
7385 047654 oSse7e AgSis 
7386 047660 125561 107262 061620 «WORD  123561,107262,061620, 106334, 106710,060521 ,113424,114672 





———EEEEe = 
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ZKMEA.P11 20-0CT-81 17:05 ROUTINE TO SIZE MEMORY SEQ 0141 
Far gatse sees seezye cose 
Aad 0477 004805 010000 056407 «WORD  004002,01 -056407 ,043220,000410,062400,070200,016405 
7390 047706 043220 000410 062400 
7391 047714 goeele 8 1ee03 
7392 0477 ores) 16400 016400 «WORD 076617,016400,016400,023260,000410,060660,061620,061620 
7393 047726 023260 000410 060660 
7394 047734 061620 1620 
7395 047740 993669 0 $oe) 002410 ~WORD 061620,076620,002410,114672,120400,061620,106770,070216 
96 047746 114672 1204 061620 
7397 047754 106770 o7ecie 
7398 047760 047234 043635 117672 «WORD 047234 ,,043635,117672,002172 000404 ,062230,007200,042727 
7399 047766 002172 000404 062230 
7400 047774 007200 042727 
7401 05 064214 056700 004002 -WO"D = 064214,056700,004002,010000 056407 ,043220,000410,062400 
7402 05 010000 056407 043220 
7403 050014 10 062400 
7404 050020 070200 016400 076617 -WORD 070200,016400,076617,076614,016400,016400,016772,114672 
7405 050026 076614 016400 016400 
74 050034 016772 114672 
7407 050040 047234 0434635 117672 «WORD 047234 ,043635,117672,000776,023301 ,063661 ,062234 ,060461 
74 6 000776 0253501 063661 
7409 050054 062234 060461 


09 
7410 050060 062234 004600 042727 
7411 050066 064214 043221 076701 


7413 050100 010000 056407 043220 «WORD 010000,056407,043220.062400.070200,016404 ,076617.,076614 
7414 050106 062400 070200 016404 


7416 050120 016400 016400 016772 «WORD 016400,016400,016772,114672,123141,000437,063222,000740 
7417 Benge 114672 Asaren 000437 


-WORD 062234 ,004600,042727 064214 ,043221,076701,014410,004002 





7418 34 063222 740 

7419 050140 063261 020700 060662 -WORD 063261 ,020700,060662.,060701 ,062234,114672,120400,061620 
7420 050146 060701 062234 114672 

7421 050154 120400 061620 

7422 050160 112534 070216 047634 eWORD = =112534,,070216,047634, 116672 ,043635, 113453000401 064334 
7423 050166 116672 043635 113453 

7424 050174 000401 064334 

7425 050200 043635 113456 114672 -WORD 043635,113456,114672,060535,113461,110446,060535,113461 
7426 050206 060535 113461 110446 

7427 050214 060535 113461 

7428 050220 114672 054220 016412 «WORD = 114672,054220,016412,054220,054220, 136500, 136520, 123160 
7429 050226 054220 054220 136500 

74 050 126360 123160 

7431 050240 000700 063260 063120 «WORD 000700,063260,063120,063140,063140,063120,063120.076460 
7432 050246 063140 063140 063120 

7433 050254 063120 076460 

7%4 050260 123141 063161 123160 «WORD 123141063161, 123160,000401 ,063260,111110,063160,063260 
7435 050266 seep 063260 111110 

7436 050274 063160 063260 

7437 050 063161 111120 063160 -WORD 063161,111120,063160,111120,070076.002456,000407,070016 
7438 050306 111120 070076 002456 

7439 050314 000407 070016 

7440 050320 076601 sia'eg 076660 -WORD 076601,000401,076660,123160,000436.,076660.003020,000403 
7441 poser 123160 000436 076660 

7442 0503 003020 000405 
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CZKMEA.P11 20-0CT-81 17:05 ROUTINE TO SIZE MEMORY SEQ 0142 
7443 050340 75 070216 076700 «WORD 060675,070216,076700, 114672 ,047634,116672,043635,113545 
7444 050346 11467, 078 116672 
7445 050354 3635 113545 
7446 050360 401 064238 043635 -WORD 000401,064334 ,043635,113550,114672,060535,113553,110540 
7447 050366 113550 114672 060535 
7448 050374 113553 119368 
7449 050400 060535 113555 114672 «WORD 060535,113553,114672,054220,016477 054220, 136500, 136520 
7450 050406 054220 016477 054220 
7451 050614 136500 136520 
7452 050420 123160 000740 063260 «WORD 123160,000740,063260,063120,063140,063140,063120,076520 
7434 930686 063190 076520 
7455 050440 016500 016421 123140 «WORD 016500,016421,123140,000402,076740, 111620, 111206, 123160 
ie) 050446 02 076740 111620 
7457 050454 111206 123160 
7458 050460 ehipt 063160 «WORD 000401 ,063260,063160,076660,12316C,110611,123160,000401 
7459 050466 07 123160 110611 
7460 050474 123160 000401 
7461 930300 0 36 O7 6660 -WORD 076660,000436,076660,000403 060675 .070217.076675,114672 
7463 050514 076675 114672 
7464 050520 123160 000401 063260 «WORD  123160,000401 ,063260,063160,111627,076660,110611,070077 
7465 050526 063160 111627 076660 
7466 050534 110611 070077 
7467 050540 123560 113234 002533 «WORD 123560, 113234002533, 110635 .002603,000412,070017,110611 
74 050546 110655 002603 000412 
7469 050554 070017 110611 


7470 050560 060220 060220 060220 «WORD 060220,060220,060220,060220.060220,060220 ,060220,060220 
7471 050566 060220 060220 060220 


7473 050600 060220 060220 060220 «WORD 060220,060220,060220,060220.,060220.060220 060220060220 
7474 050606 060220 060220 060220 


7476 050620 060220 060220 060220 -WORD 060220,060220,060220,060220.060220.,060220 .060220.060220 
7477 050626 060220 060220 060220 


7479 050640 060220 060220 060220 «WORD 060220,060220,060220,060220.060220 060220 ,060220,060220 
7480 050646 060220 060220 060220 


7482 050660 060220 060220 060220 «WORD 060220,060220,060220,060220 060220060220 ,060220.060220 
7483 050666 060220 060220 060220 


7484 050674 060220 060220 

7485 050700 060220 060220 060220 «WORD 060220,060220,060220, 060220060220 .,060220.,060220,060220 
7486 050706 060220 060220 060220 

7487 050714 060220 060220 

7488 050720 060220 060220 060220 «WORD 060220,060220,060220 060220 ,060220,060220,060220.060220 
7489 pene? 060220 060220 060220 

74 0734 060220 060220 

7491 050740 060220 060220 060220 «WORD 060220,060220,060220, 060220 .060220 ,060220 060220060220 
7492 050746 060220 060220 060220 

7493 050754 pons 0 p668 

7494 050760 060220 060220 060220 «WORD 060220,060220,060220,060220 .060220 060220 .060220,060220 
7495 050766 000550 sth 060220 

7496 050774 060220 060 $9 

7497 051000 060220 060220 060220 «WORD 060220,060220,060220 060220060220 .060220 .060220.060220 
7498 051 060220 060220 060220 





PRMAPMMMMMHMHKHKHKRKKKMMM OOF 


PARMPMMMMMMmM 


FH AMMMMMMMMMNMMOH 
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CZKMEA.P11 20-OCT-81 17:05 ROUTINE TO SIZE MEMORY SEQ 0143 

7499 051014 220 060220 
7500 931020 060220 060220 960220 «WORD 060220,060220,060220,060220,060220,060220,060220,060220 
7501 051026 060220 060220 060220 
7502 051034 060220 960220 
7503 051040 060220 060220 060220 -WORD 060220,060220,060220,060220,060220, 060220, 060220, 060220 
7504 051046 060220 060220 060220 
7505 051054 220 060220 
7506 051060 174610 004002 010000 «WORD  174610,004002,010000, 043620, 115606,076560,014410,043225 
7507 051066 043620 115606 076560 
7508 051074 014410 043225 
7509 051100 062405 070205 057625 «WORD 062405,070205,057625,116167,057637,061620,061620,061620 $: 
7510 051106 116167 057637 061620 $ 
7511 051114 061620 061620 $ 
7512 051120 061620 061223 057234 «WORD 061620,061223,057234,057220,000560,057222,060662,061620 $ 
7513 051126 057220 000560 057222 % 
7514 051134 2 061620 4 
7515 051140 061620 061620 061620 «WORD 061620,061620,061620,063223,055226,064214,060605,061620 8 
7516 051146 063223 055226 064214 $ 
7517 051154 060605 061620 t 
7518 051160 116500 000600 070017 «WORD  116500,000600,070017,043221,000500,076701,014420,074661 $ 
7519 051166 043221 000500 076701 x 
7520 051174 014420 074661 
7521 051200 061620 077303 055224 «WORD 061620,077303,055224,055225,057220, 063120,063120,063120 $ 
7522 051206 055225 057220 063120 4 
7523 051214 063120 063120 
7524 051220 063120 000700 060660 -WORD 063120,000700,060660,060703,061227,003360, 120440,060660 
5g eisse 958005 Snggy 90000 
7527 051240 063305 000600 060705 «WORD 063305,000600,060705,061222, 060525, 117602,000677, 114704 
7528 051246 061222 060525 117602 
7529 051254 000677 114704 
7530 051260 070217 043221 000500 -WORD 070217,043221,000500,062701,000420,060661,061620,063303 
7531 051266 062701 000420 060661 
7532 051274 061620 063303 
7533 051300 060605 117552 000402 «WORD 060605,117552,000402,070017,056222,062203,056226,056227 
7534 051306 C7 056222 062203 $ 
7535 051314 056226 05622 & 
7536 051320 057220 123221 054661 -WORD 057220,123221.054661,061311,055230,000403,070017,054406 $ 
7537 051326 061311 055230 000403 g 
7 051334 070017 054406 $ 
7539 051340 061224 057220 061105 «WORD 061224,057220,061105, 115135, 114540,043220,000404 ,062400 $ 
7540 051346 115135 114540 043220 
7541 051354 000404 062400 $ 
7542 051360 120600 116140 120620 «WORD  120600,116140, 120620, 116145, 114454,000400,061231,000773 $ 
7543 051366 116145 114454 000400 $ 
7544 051374 061231 000773 $ 
7545 051400 061226 114454 060601 «WORD 061226,114454,060601,117112,000403,070017,056406,043220 $ 
7546 051406 117112 000403 070017 $ 
7547 051414 056406 043220 $ 
7548 051420 076500 115163 114512 «WORD 076500,115163,114512,043221,000404,076401,114512,054620 $ 
7549 051426 04 221 000404 076401 $ 
7550 051434 114 1 054620 6 
7551 051440 06162 061620 061620 «WORD  061620,061620,061620,061620,061223, 055224 ,055225,055226 $ 
7552 051446 061620 061285 055224 $ 
7553 051454 055225 055226 § 
7554 051460 055227 114465 123620 «WORD 055227,114465,123620,000700,061311, 114476, 123400,061620 
















CZKMEAO DMS11=-DA DYNAMIC MACY11 30A(1052)_ 21-0 
CZKMEA.P11 20-0CT-81 17:05 ROUTINE TO SIZ 
7555 051 1311 114476 
BEE seis ures gts 
7557 051500 117212 #1 1234 - WORD 
7558 051506 061 060520 
7559 051514 117621 
7560 0515 114 0613) - WORD 
7561 051526 000663 114 123400 
£366 0515 96180 117251 
7565 051540 12 sa gg st 44a - WORD 
7564 051546 oe 137 3137 137 
Sm a ee we 
ras 051566 120600 116247 198673 
7568 051574 110436 106657 
7569 051600 104700 060600 117654 «WORD 
7570 051606 bss 060520 117657 
7571 051614 10036 
7572 051620 061231 1147 «WORD 
7573 051626 123400 061620 117267 
7574 051634 Visese 00 
7575 051640 103425 114606 123000 - WORD 
7576 051646 000500 061260 000401 
7577 051654 114704 123440 
7578 051660 103425 900500 061262 - WORD 
7£79 051666 000401 063230 100425 
7580 051674 000000 000900 
7581 051700 000000 000000 000000 - WORD 
7582 051706 000000 000000 000000 
7583 051714 000000 000000 
7584 051720 000000 000000 000000 WORD 
7585 051726 000000 000000 000000 
7586 051734 000000 
7587 051740 000000 000000 000000 WORD 
7588 051746 000000 000000 
7589 051754 000000 000000 
7590 051760 000000 000000 000000 - WORD 
7591 051766 000000 000000 000000 
7592 051774 000000 00 
7593 052000 000000 000000 000000 WORD 
7594 052006 000000 0 00000 
7595 052014 000000 000000 
7596 052020 001007 114761 001027 - WORD 
7597 052026 114763 001047 114765 
7598 052034 001067 114767 
7 052040 001107 114771 001127 - WORD 
052046 114773 001147 114775 
7601 052054 001167 114777 
52060 2 
2060 PATCH: .BLKW 
TBUF : ye 
RBUF: .BLKW 


END 





T-81 
MEMORY 








8 12 
08:56 PAGE 144 


117212, 100425, 123400 ,000600 ,061300, 060520, 117621 ,000625 
114704 ,000600 061231 ,000663, 114704, 123400,061620,117251 
123077 ,000407 ,063277 , 063137063137 ,063137,073537,062231 
004600 ,060417, 063236, 120400, 116247, 116672, 110436, 106657 
104700 ,060600,117654,114606.060520, 117657, 100425 ,000600 
061231 ,000663, 114704, 123400,061620, 117267, 114630,060600 
103425, 114606, 123000000500, 061260,000401 , 114704, 123440 
103425 ,000500 061262 ,000401 ,063230, 100425 ,000000 000000 
000000 000000 , 000000 , 000000 000000 ,000000 ,000000 000000 
000000 ,000000 , 000000, 000000 ,000000 000000 . 000000 ,000000 
000000 ,000000 , 000000 , 000000 .000006 . 000000 .000000 .000000 
000000 ,000000 , 000000 , 000000 ,000000 ,000000 . 000000 .000000 
000000 ,000000 , 000000 , 000000 ,000000 , 000000 .000000 000000 
001007,114761 ,001027,114763,001047,114765 ,001067, 114767 
001107,114771,001127,114773,001147,114775 ,001167,114777 


0 
1 SET FIRST CHARACTER TO SOH 
3 ;PPSEUDO-RANDOM DATA 





J 


SEQ 0144 


a 


' 
ENDA 
E 
BLKB ° D 


2 rc gC RE Ee ak a PN 
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( 
CZKMEA.P11 20-0CT-81 17:05 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0145 ( 
ADDR 030010 5546*  5562*  5567¢ / 
ADINK 030016 tee 3388 5557 5564* 5570# A 
ADINL 036014 5550* 5555 5563* 339" A 
DR 002532 15594 2198 aics 3137 =: 33212 3217-3347 3462 3590 8 = 3593 3624 3655 3695 E 
5507 51 562, 6032 ¢ 
BEGIN 001542 1254 1260 13874 C 
BITO = 000001 11844 0 
BITOO = 000001 11744 81184 C 
BITO1 = 000002 11734 = =1183 E 
BITO2 = 000004 11724 =61182 E 
BITOS = 000010 11714 = 1181 
BIT04 = 000020 11704 1380 t 
BITOS = 000040 11694 1179 
BITO6 = 000100 11684 1178 t 
BITO7 = 000200 11674 861177 ¢ 
BITO8 = 000400 11664 1176 4097 ¢ 
B1TO9 = 001000 11654 1175 4105 4188 ] 
BIT] = 000002 11834 ] 
BIT10 = 002000 11644 4149 ] 
BIT11 = 004000 11634 4112 ] 
BIT12 = 010000 11624 ] 
BIT13 = 020000 11614 4156 k 
BIT14 = 040000 11604 4083 L 
BITiS = 109000 11594 4000 L 
BIT2 = 000004 11824 L 
BITS = 000010 11814 , 
BIT4 = 000020 11804 N 
BITS = 000040 11794 n 
BIT6 = 000100 11784 
BIT7 = 000200 11774 
BIT8 = 000400 11764 ‘ 
BIT9 = 001000 11754 h 
BOPEND 046060 72154 F 
BOPN3S2 046060 5584 72174 F 
cet ||, : 
BUFADR 002522 15544 = 1835* 1846* 1969* 1974% 2045* 2067* 2073* 2138% 21918 2261* 23298 2408 F 
2438*  2505*  2607* 643* ¢i30s 2737s 840" 2848* 2907s 911* 2985  2989* 3054s F 
3058* 3337*  3260* 267* 3371* 3483 485* 3491*  3624* 583, 6044+ F 
BUFCNT 002526 15564 1741* 1742 1783* 1784 1837* 1842% 1847" 1970*%  1975* 047* 2048 2071 f 
2072e =—2140* 8=2141% =—2193* = 2194 = 2.263% = 2.264% = 2330" = 2332e = 2409e )=— 411% «8=2502* = 2503 
2604* 4603" 1 ihe 2728* gcaes 1 ted $828: $8538 846* 2895* 2912 77 ‘ 
3046* 138* 3243* 3244* 259* 266* 35366 367% 373* 374% 81i* 3482 92* 
3493* 3618* 3915* 3919" 39378 3941* 5834 60% * 6043* 
BUFEA 002524 15554 1836" 1968+ 94 * $132: 2192s $56 * 33* qiss 504* 2606*  2726* 2839s : 
2847* e83e* 2976* 045* 136* 3242+ 45* 372s 460* 4 486* 3490* 3617 s 
3623* 5833 9001" 6041* : 
CCHI 027662 5523* 55344 5553 : 
CCLO 8 © 027664 5524* 55354 5555 
CCNT 030006 5544 5550 55664 ‘ 
CCPEND 042060 68234 } 
CCPFRM 036 5581 64384 : 
cctst 002 1560# 3109 3114 3209 =: 3213 3343-3458 3587 5530*  5532* 
CHAR 002516 15514 
CHRADR 002320 14954 ee° 4963 5179* 5180 
CKSWR = 104407 4077 als 4187 49044 
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CZKMEA.P11 20-0CT-81 17:05 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0146 
CLINE 002313 14904  5614* 5758 5770* 5905* 5907 5910* 5913 
KALL 031226 2324 $393 49 5789 
CLKDAT O05 19 14944 772 23 5345* 5348* 5633 5812 5978 { 
CNTBIT 14984 1 
COMIN QO Jol" 58954 1 
CONBIT 002326 14994 1 
CONFIG 024356 49364 4951 5107* 1 
CR = 1 10994 4707 4717 1 
CRC32F 002314 1493# 2774 3235 3529 3672 5337* 5585 5980 1 
CRLF = Boose 1100# 144 4661 4717 1 
CSRO 002342 15084  5862* 6408 6411 6424 6428 1 
CSR2 002344 1509% 5865* 6408 6411 $¢ 6428 6431 1 
CSR4 002346 15104  5864* 6408 6411 6424 6428 6431 1 
CSR6 002350 15114 5865* 6408 6411 6424 S6¢8 6431 
CUNIT 002456 15354 4003 4992* 5028 5367* 635* 5637 5642* 5654 5657* 5658 6402 6404 ) 
6406 6408 411 6415 6 21 24 $6<8 431 { 
CURBUF 002500 ian 3347* 427* 3462* 3552s 590* 591 683 3735* 5964 5967 6015 6044 ' 
CURDAT 002324 14974 { 
CUREA 002476 15434 3346* 3429% 3461* 3554* 3592%  3737* 5965 6014 6037 6421 
CURLIN 002454 15344 1695 7 786 18e¢ 1870 1871 1911 1912 2004 2005 2057 2 { 
2105 $c0e 2272 2346 236 2364 2425 2450 2451 530 2547 2548 2632 { 
2657 65 2754 5615* 5748 5757 5769* 5789 5797* 800* 5810 5831 5 
5906* 5914* 06 8 11 6421 643 { 
CURLUR 002322 14964 { 
TAB 024360 1518* 49374 4943*  5004* 5030 5200 5211* 5318 5322* 5326* 5360 5630* ! 
DDISP = 177570 11064 { 
D 036042 1329 1331 1333 1335 1337 1339 1341 1343 1345 1347 1349 1351 1353 
1355 1357 1359 1361 1363 1365 1367 1369 1371 1373 1375 1377 1379 { 
1381 1383 64354 { 
DH1 034446 1329 62974 
DH10 035164 1375 377 63574 { 
DH11 035260 1365 1379 63674 { 
DH12 03536 1381 1383 63794 { 
DH13 035454 1373 63894 { 
DH2 034507 1331 1333 63034 { 
DH3 034553 1335 63104 { 
DH4 034612 1337 339 1349 1351 1355 63164 { 
DH5 034707 1341 1343 1345 1347 1353 1357 1359 1361 1363 1367 1369 1371 63274 { 
DH6 035014 63394 { 
DH7 035100 63484 { 
DISPLA 001142 12934 =1413* 1421*% 4126% 4148+ { 
DISPRE 000174 1257#@ = =1421 { 
DSWR = 177570 1105# 1292 1412 
DT1 035562 1329 64024 ! 
DT10 035726 1375 1377 64214 
DT11 035750 1365 1379 64244 ! 
DT1 035774 1381 1383 284 
DT1 036016 1373 64314 ! 
DT 035574 1331 1333 64044 { 
DT 035610 1335 64064 { 
DT4 035622 1337 1339 1349 1351 1355 64084 
DTS 03564 1341 1343 1345 1347 1353 1357 1359 1361 1363 1367 1369 1371 64114 { 
DT6 035670 64154 
O17 035706 64184 { 
EABITS 030012 5548*  5561* 55684 { 
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EMTVEC= 30 1194@ 1398%  1399* 
EMO1 8 050 139? 61514 
EMO. 033101 1331 61564 
EMO 033137 1333 61624 
EMO4 0331 1335 61664 
EMOS 033211 1337 61704 
EMO06 033240 1339 61744 
—EMO7 033270 1341 61784 
EM10 033324 1343 61834 
—EM11 033347 1345 61874 
EM1 033405 1347 61934 
EM! 0334 1349 61994 
EM14 033503 1351 62054 
EM15 033542 1353 62114 
EM16 03 1355 62174 
—EM17 033641 1357 62234 
EM20 033702 1359 62294 
EM2* 033742 1361 62354 
EM22 03400 1363 62414 
EM23 034021 1365 62444 
EM24 034054 1367 62494 
EM25 034106 1369 62544 
EM26 034143 1371 62594 
EM27 034170 1373 62634 
—EM30 034222 1375 62684 
—EM31 034275 1377 62764 
EM32 034350 1379 62844 
—EM33 034373 1381 62884 
EM34 034420 1383 62924 
ERNUM boses2 1$0e 1577 1594 1619 1623 1627 1632 1659 1663 1686 1691 170 73 
* * * * * tk ® * & % 1* 1731* 
1736* 1740 1773* +1778 1782* 1821% 1826* 1829 1838% 1841* 1848% 1851* 1859« 
* 1868*  1873* 1879% 1887* 1895* 1900" 1904* 1909* 1914% 19202 1956*  1971* 
1976* 1981* 1986* 1990* 1993  2002*  2036* 049" $0228 2056* 2062+ * 29 
2076* 2081* 2093* 2102* 2133 5he5 2146* 1498 154* 2184% 2195 2199%  2207* 
2211* 2223% 22548 2265% 2269% 2277% 2281% 2318% 2326% 23422 23452 23542  2355« 
2359* 2362* * 2397%  2405* SoG 2424% 2633% 2442% 24646% 449% 26532 2458 
2492e 2501* 513* 2526% 2529% 25362 25372 2541% 25458 550* 555* 25572  2560* 
2594% 2603* 615* 2626*  2631%  2638* $$e7s 2651% 2655* 660* 665* 26792 2682+ 
2716* 2725% 2736* 749% = 2753% 2757 765% 2789* 795% 826* 835* 2843*  2851* 
2856* 859* 897« 906* +40 i $33 919« Gheee 929" 75% 84% * 2e 
* 001* 005* 044% 053* 057* 061* 066* 070* 074% 1128 135* 141* 
3145 3158* 166* 3171* 183* $800 56* 63*  3270* 276* 280* 1* 3296* 
3304* tice 364% 370* 377% 32518 90* 95 $e02e 13* 18* 3 792 
3489" 96*  3500* 509* 514% agie 538* 543s 596* 609* 22* * 39" 
3644* 3649% 3658 664* 3669*  3678* 687% 693*  3731* 779% = 3790 802* * 
3815* 3824 3833  3856* 3896 39072 39142  3918% 3922s 9342 3940* 944e 3955* 
3958*  3978* 6402 6404 6406 6408 6411 6415 6418 2 6424 642 
ERRVEC= 000004 11874 1410 1411* 1622* 088 4089* 4091"  4094* 5395 5396 5400* 5405* 5408+ 
5434% 54392 5443 5460* 5470* 5471* | 
FRD 031362 5827 58314 
per 1S 14874 
CETCSR 851276 1750 i792. 1930 eos giié $356 ¢ 34 44 $378 470 2572 
2694 2799 
2868 294 3017 086 185 320 51 84 969 r 
GETKMC 026506 1519 4011 53184 3654 we 
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GETLIN 031650 1712 1755 1797 1936 008 107, 2159 229 293 336 372 415 466 
509 ¢718 566 611 3690 5688 2803 3863 940 010 $075 $178 314 
ge 616 765 794 9064 
GETLNO 031644 59054 5909 
GETPHA 027666 55434 
GNS = stews 1696 1441 1454 1467 rt3 3 4897 489 4899 4900 $206 4904 4905 4906 
4 4908 4949 4957 500 5014 502 2038 5041 504 5055 5065 5071 
5083 5088 5104 5144 5187 5606 5645 565 5664 5669 
GTSWR = 104406 1436 4902¢ 
HADDR 002336 15064 5509* 5998 
HOLDB 38 031202 5758* 5770 5772" 
HT = 11 10974 4659 4717 
INPDUN 031772 1S 1788 2060 2208 2278 2351 2430 2534 2636 5751 5814 5835 5887 
INTALL 031120 2322 2401 2496 2598 2720 5757# 
INTKMC 030664 1621 1661 1688 1733 1775 1824 1958 2038 $178 $182 255 320 2399 
See 596 2718 828 2899 2978 3047 3129 248 358 73 599 3781 
804 820 3897 7004 
INTLNE 031204 1337" 7960 3060 2136 2187 2257 2830 2901 2980 3049 3131 3250 3360 
3475 3601 $10 57784 
0 561 56814 
INTREC 032456 365 60524 
INTTRM 032510 i] 6 
IoT_ = 24 §=65684 
IOTVEC= 000020 c# = =61396* 1397 
KIPARO= 172340 54# 5376 5426 6023 


2356 6031* 


6005 


ANN NNN 
RIMINPINIPINININININININININNNNNNNNINNNNINNNNNY UNS 





ae 
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CZKMEA.P11 20-OCT-81 17:05 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0149 
| 
E15 026462 5305¢ 
KMCE16 026474 53114 
KMCNT 024354 459354 4978* 4982 | 
KMCPO1 0 6252 52234 
KMCPO2 026264 32008 
PO 7% 5235¢ 
KMCPO4 026310 53418 
KMCPOS 026322 52478 
KMCPO6 0263 52534 
KMCPO7 026346 5259" 
POB 026 22698 
CPO9 026372 597148 
KMCP10 0264 52774 
KMCP11 026416 52830 
KMCP12 02 52894 
KMCP13 026442 52954 
KMCP14 026454 53014 
KMCP15 026466 53074 
KMCP16 026500 53134 
KMCRO1 026244 52204 
KMCROG 026256 52264 
KMCRO 026270 52324 
KMCROS 026302 52384 
KMCROS 026314 544M 
KMCRO6 026326 52504 
KMCRO7 026340 52564 
KMCROB 026352 5262" 
KMCROD 026364 52684 
KMCR10 026376 5274e 
KMCR11 026410 52804 
KMCR12 026422 52B6M 
KMCR13 026434 52924 
R14 026446 52984 
KMCR15 026460 53044 
KMCR16 026472 53104 
KMCSO1 026254 52248 
KMCSO2 026266 52308 
KMCSO3 026 52368 
(S04 026312 52424 
KMCSOS 026324 52484 
026336 53544 
KMCSO7 026350 53604 
026362 523664 
S 026574 52724 
KMCS10 026406 52784 
$11 026420 52844 
KMCS12 026432 52904 
KMCS13 026444 52964 
KMCS14 026456 53028 
KMCS15 026470 53084 
KMCS16 026502 53144 5320 
KMCTAB 026244 1518 4938 4942 4979 5003 5218# 5222 5361 5630 
KMCTBE 026504 4940 4986 5204 5316 
KMCVO1 026250 5222" 
KACVOR 026262 52284 
KMCVO3 026274 52348 


CZKMEAO_ DMS11=DA DYNAMIC 
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feces 


S 
& 


III HOOO— 
geet eh ah ee Aythed tet + tad $4 


Bt a st et 
VVQVaeValeeeaes 


MW =OOKo 
NM Mls 


MAW WH SWNUWSUAMN Nu 
oF & 
So 
—_ 
Re 


3787 


3843 


3789 


5913 


6032* 


3855 


3793 


6033* 


3962 


3803 


6052 


3977 
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6066 


60824 


2434 
3652 


2194 
3482 


5610 


3813 


6120 


2459 
3680 
2264 
3493 


3819 


eat Sipe 20) 


639 2667 2770 2779 
699 4005 5336* 5582 
2332 2411 2503 2605 
6043 

3835 3837 3904 3906 


SEQ 0150 


2889 
5971 


2728 
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3947 3952-3959 
PSs = 177776 W101 1102 3795+ 3803+ 3810 3813" 3819" 5834" 58353837 © 3908* ©3947" 3952" 
® 
PSw = 177776 1102# 1444* 1528  1563« 
PT 024452 4944 4959 4960" 
PWRVEC= 11934 
RBONLY 031522 2921 2998 3067 58694 
RBUF 052 178318351882 1884 1969 2045, 2067 2612408 260727302769, 2907 
2925, 2985 3002 3094 3071 34853523 3909 6070072 «61187606 
RBUFSZ 002530 1557# 3232" 3237% 3257 «= 3264 
RDCHR = 104410 4515 4905" 4961 5175 
RDDEC = 104413 49088 
RDLIN = 104411 4275 4589» 4906# «5113 
RDOCT = 104412 1456 4907" 5090 5149 5163 
RECBUF 002506 15474 15 
RECEA 0025 ise" 
REQGO 031026 5725. 5727 5729 5731 57338 
REQNC 031000 2054 2200 2622 2629 57284 5808 5881 
QNI 031020 1692 5¢3eu 57615778 
REQNR 030770 1779 5726 = $825 
REQNT 030760 1737 57248 = 5829 
REQNX 031010 2270 2343 2527 «= 57308 
REQOUT 031742 1893 1982 1988 2078 2155 2215 2286 2357 2644 2461 2539 2649 2671 
2751 2796, 2854 2917 2994 Sos S151 3274 «$306 «3384 $503 3633 (3926 
RESTRT 002362 1518" 4057 
RESVEC= 000010 11884 
RETADR 002512 15498 3407 3516 5985s 
RETBUF 002514 1550# 3396% 3399 34078 3415  3516*  3523* 3526" 3531" 3540 
RETEA 002510 15484 3406 3515 5994s 
RIN 031344 1839 1843. «1972-2050» 2068 )~=— 2266 »3=— 2413 «= 2609 «2618 «= 2685. «Ss «2732S 2841S: 2908 
296 3035. 3139, 3261 33683487 561939163958 SB 24a 
ROUT 002470 1540# 3231* 3239* 3260 6418 
RPT 031416 5826 5830 5836# 
RRET 002474 15428 3223*  3238* 3292 
SAVE 002334 15028 
SELO 002260 1475# 1583* 1584* 1585 1626 1626* 1629 1631* 1634 1636 1642 1699* 1703 
37942 37 3811" 3827" 38 5327 -9578* + 5591" 5594" 5608 57028 5703* 5704* 
5724% 5726* 5728 5730x 5732e 5736 5862 5896  5942* 5944 6402 
SEL1 002262 14768 
SEL2 0022 14774 1582e 1590 1664 1967 1854 1861 1890" 1897 1899% 1902  1984* 1991 
20B0e 2088 2560 2570s 25784 2h? 24574 ahbse 24724 2543 2556s 265326668 
gorz* 2760 a7 2784 87BBx 2857 2922 2999 3068 ©3159 $162 B170e 3278 
GBB 3298s 5593 3402 3419" 3312-3518 B544e 3641 3727e  S92Be S945" 3948 
3963e 5701* 5708 5733 5863 5869 5871" 5933 
SEL3 002266 Terow 1695" I7ahe 17BGe 18711918 «2003 2057% 2105. 2202 © 22728 2346» 2364 
2425s 2431 2550" 2548 2652" 2658 0758 S748e  S8t0e  SBSie SB R3e 
SEL4 002270 147gw 1697e 1745s 1785+ ©1885 1926 2059" gas © 2274s 548s 24274 «25524 2654 
g78e 2906 30053072 3168 $282 529334143539 $650 $08, $8a5- 8986 
5813* 5832* 5864 5885s 
SELS 002272 1480" 
SEL6 002274 414 1696" 1742" 1784e 1866 1875 19071916 205 ©2100 2205+ ©2025 22756 
qi4ge  g368  gagBe 2403 2353 2555 26554 2663 2763 861 2955 5008 $077 
409, $334 364336593675 36895390 5749 5812s SBSSe 58344 5865 58868 
SEL7 002276 1482" 1877 1918 2000 2203+ ©2275" 25478 24264 2551 © 2633¢ SB Tie 58 8ks 
SETLIN 030244 1575 1617S «1657, —Ss«*1684=S ss 1729°=Ss«1771,S «1819 = 1954 = 3084 «= 3130) 2181 = 2251S: 2316 
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SETTAB 024362 
SETUP 002442 
SHBE 002462 












SRO = 177572 
SRI = 177574 
SR2 = 177576 
SRS = 172516 
STACK = 001100 
STCLK 031274 





STKLMT= 177774 
STTEST 002536 
SwWR 


001140 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
SwO1 = 000002 
SwWO2 = 000004 
SswO3 = 000010 
Sw04 = 000020 
SwOS = 000040 
SWO6 = 000100 
Sw07 = 000200 
SwO8 = 000400 
SWwO9 = 001000 
Swi == 000002 
SW10 = 002000 
SW11 = 004000 
SW12 = 010000 
SW13 = 020000 
SW14 = 040000 
Sw15 = 100000 
Si = 000004 
SW3 = 000010 
SW4 = 000020 
SWS = 000040 
SW6 == 000100 
SW7 = 000200 
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wr 
a 
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NN 
wry 
be 

ws) 
o= 


N 
& 


Wo 
a2 
3s 
™m 
aeaeaen 


— 
mM 


MNS O@rnw 
cous 
ane as 
CoO™NIUIIO 
ery 
NS 


3 


Boe Rice 
— NON 


one 
ORAW 
ana 2 


ate 
a as 


WUNIUILA RPO = = 


IN WAWIAIWAIRIPINININA SS = 
S33 wn 


ion 

“N 

&* 

& 
MAXALMNO COONS OM 


AWAANWIWUINNININN 
MAUI CON NINO MWe 6o 
w wn 


=—oun— 


od ad od ot od od 
ot a ot 
SLOVO 
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SEQ 0152 


602 
584 


1852* 
1907 
2000 
2225 


2547* 
sice 


3133 


4149 
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= 000400 


Sw9_ = 001000 
SYNTIM 031714 


TBITVE= 000014 
TBUF 052260 


TERBUF 033002 
TKVEC = 000060 


$T1 002552 
TST10 004534 
TST11 005072 
TST12 005536 
TST13 = 005734 
TST14 006226 
TST15 006472 
TST16 §=©—.007042 
TST17 ~=—.007460 

2 002724 
TST20 010124 
TST21 010652 
TST22 011404 
TST23 011666 
TST24 012260 
TST25 012562 
TST26 §=6013 
TST27? =—013534 

ST3 003122 
TST 014416 
TST31 §=©015166 
TST32 016004 
TST33 = 0017156 

ST34 017630 
TST35 020304 

S136 


TYPFLG 002332 


WO 2 NO Ss os 
_y 


yp Nr tererery 


w 


NOW SATS 
Wiseo Row 


=A ES BS BH SMS HW 
~ +. 
™N 


MOU wofoyunn 
ow 


—— 
= 


2152 


2138 
61314 


VIN LE 
AOoOvnoe 
Aoonuws 
M—focorn Ss 
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2834 


2329 


1728* 
2823+ 


6404 


2916 


2737 


2993 


2778 


1953* 
3037* 
6411 


3063 
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TYPOC = 104402 4165 4170 4216 4240 4422 48974 5609 
TYPON = 104404 48994 
TYPOS = 104403 48984 5018 
T7BUF_ =. 033022 1846 1923 1925 61404 
UNITFG 030556 5626 56 5647 567 
UNTDON 020400 400 40144 
VECIN 002300 148 3785 809*  3825* 3852 3902 3974 
VECOUT 002302 14844 3854 936* 3976 
002464 15384  1636* 1637 1642* 1643 1667* 085* 2947* 3247* 3282+ 3283 3293* 3294 
3349* 409 3410* 3411 3414* 3416 464% 3534* 3535* 3536 539* 3541 3597* 
3611* 641* 3642 645* 364 3650* 3659* 3660 3662 7 3671*  3675* 
3676 3684* 3685 689*  3690* 3691 3697* 3704* 3705 3716* 3717* 3718 3780* 
3839* 3840* 3841 3852* 3854 3895* 39748 3976 5846 6122* 6123* 6124 6404 
6415 6418 - 6421 6424 6428 
XBITS 00234 15074 5505* 5995 
XIN 031354 1849 1977 2074 2143 2196 2334 2439 2507 2516 2563 2644 2741 2849 
2913 2990 3059 3142 3268 3375 3494 3625 3920 3942 58284 
XOUT 0024 15394 = 3230* 3267 6418 6431 
XRET 002472 15414 3222* 3281 
SAUTOB 0011 12894 8 1438* 441 4569 
SBDADR 001122 12844 
SBDDAT 001126 12864 
L 001172 1307# 4151 4200 4365 62 
C 023600 4666*  4676* 4683 4709* 47144 
SCKSWR 022160 43984 4904 
oe 001100 isin 1389 1390 1398 1402 1403 1404 
$C S 3 1306" 13034 13044 13054 
SCNTLC 023072 435 ho Sa 45624 
SCNTLG 023104 4419 45644 
SCNTLU 023077 4444 4537 45634 
SCORE 027340 5404 54604 
SCRLF 001177 1309 4171 4182 4200 4208 4227 4232 4252 4309 4455 4542 4562 4630 
4665 4717 5110 5161 
SCROUT 027370 5460 54674 
SDBLK 024020 4741 4775 47834 
SDOAGN 020524 4040 049 40554 
SDOTBL 024010 4744 4779" 
= 10854 1600 16014 1640 16414 1669 16704 1708 1709# 1751 1752# §1793 17944 
1931 19324 2015 20164 2115 21164 2165 21664 2235 22364 2299 23004 2377 
3018, Soro $007" Soeae Sige’ Stare S821" S3e28 S434" SaSe $559" $5608 9752" 
37534 48 38494 3970 39714 
NDAD 020514 1428 40514 4195 
SENDCT 02046, 1402 0424 
NDMG 02053 4044 40594 
SENULL 020530 4047 0584 
oP 020426 40324 
SEOPCT 020454 1402* 4039% 4043 
SERFLG 001103 12754 067 4101 4103 4109* 4130 4146* 4200 
001115 12814 1405* 4103 4125* 4130 
SERRPC 00116 1389" 2185 digas 4155 4161 4162 4164 4168 4169 4200 4214 
* * ® a * 
SERRTB 001202 13264 222 
SERRTY 021350 4181 42074 
SERTTL 001112 12794 = 4152* 4200 





CZKMEA.P11 20-OCT-81 17:05 CROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0154 


ee + 


AM 12 | 
CZKMEAO DMS11=DA DYNAMIC MACY11 30A(1052) 21-OCT-81 08:50 PAGE 156 
CZKMEA.P11 20-OCT-81 17:05 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0155 | 
SESCAP 001170 13064 1404% 6124* 4191 4193 4200 
SFILLC 001156 13004 4669 4717 
SFILLS 001155 12994 4717 
$GD. 001120 12834 
SGDDAT 001124 12854 
SGET42 020504 40484 
SGTSWR 022250 44204 4902 
= 000003 1080 1081 
SHIOCT 021642 4297 43084 
SICNT 001104 12764 4116* 4117 4119* 46129 
SINTAG 001135 12904 4417 6636 4456 4569 
SITEMB 001114 12804 4155 4200 4211 
SKTNEX 027332 5405 54594 
SKTOUT 027270 5439 54484 5457 
$KT11 027022 54034  5407* 5459  5485* 5489 5961 6002 
SLF 001200 13104 4200 4309 4552 4562 30 4717 
SLPADR 001106 12774 = =©1406* 4107* 4122% 4127 4 
SLPERR 001110 12784 1407* 1576* 1618 1658 685* 1730* 1772% 1820* 1955* 2035* 2131*  2182« 
2252e 2317% 2396% 2490 2592% 2715% 2825% 2888  2970* 3039*  3107*  3208* 3341* 
3450* 3585* 3778%  3894* 4107 4123* 4129 4190 
SLSTAD 027446 5474% 54824 5488 5503* 5509 
SLSTBK 027450 5475* 54834 5491 5493* 5495 
SMAIL = #2002 1424 1434 4122 4184 4653 
027114 5411* 5415* 54174 5440 5450 
SMAPRG 027120 5412 54194 
SMMOUT 027312 5442 54544 
SMNEW 023122 4423 45674 
SMSWR = 023111 4420 45654 
SMXCNT 021032 4120 41294 
= 10844 1571 15774 § 1613 16194 1653 16594 1680 16864 1725 17314 1767 17734 
1815 18214 950 19564 2030 20364 2126 21324 2177 21834 2247 2534 2312 
23184 2391 23974 2485 24914 2587 25934 2710 27164 2820 28264 2883 28894 
2965 29714 3034 30404 3102 31084 3203 32094 3336 33424 3451 34574 3580 
35864 3773 37794 3889 38954 
SNOMAP 027140 5416 54244 
SNULL 001154 12984 671 4717 
SNWTST= 000000 15724 16144 16544 16814 17684 18164 19514 20314 2127# 21784 22484 23134 
23924 24864 5884 27114 28214 28844 29664 30354 31034 3204 33374 34524 #35814 
37744 38904 9944 40204 
SOCNT 024252 4816+  4845* 584 
SOMODE 024254 4811* 4815 4820 4823* 4834+ 48604 
SOVER 021016 4084 4100 08 4118 41264 
SPASS 1100 12734 4036* 4037* 4045 4114 4130 
001176 13 4200 4306 4309 4474 4545 4562 4628 4630 4717 5111 5160 
SRDCHR 022522 44874 4905 
SRDDEC 023134 45844 4908 
SRDLIN 022612 45104 4906 
DOC 21504 42794 4907 
$RDSZ = 24 45034 
SRTNAD 020526 40574 
SRZ2A = weenee 4909 
SSAVRE= seee08 UJ 4909 
SSCOPE 020550 1396 40764 
SSETUP= 000127 . 12654 1395 1396 1398 1400 1402 1305 1404 1406 1428 1431 4034 4077 
4145 4187 4195 4357 4362 4363 439 4569 


$SIZE 026736 53864 5486 
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SSIZEX 027374 5451 e433 54684 
$STOP 0 abl | 5410* 5413* 54184 5446 
SSTUP = 17777 12654 
SSVLAD 020770 4092 41214 
$SWR = 167400 108 10814 10824 1305 1306 1367 1403 
168 1728 1770 1818 195 $933 $362 
2713 2823 2886 2968 3037 105 206 
4022 4029 4035 4050 4056 4058 4068 
4097 4098 4101 4102 4103 4110 4111 
4138 4139 4140 4149 4156 4184 4188 
SSWRMK= 4072 4073 4099 
STERM = 30 4873 49094 
STIMES 001166 13054 8 1403* 4035* 4110* 4117 4120* 4129 
$TKB 001146 12954 4312 33 44 4374 402 4429 
STKCNT 021644 4313# 4328 363 4380* 4494 4496s 
STKINT 02166 1451 1527 43284 354 4415 
STKQEN= 021657 43174 4388 4499 
STKQIN 021646 43144 4329* 4330 4386*  4387% 4390* 
TK 021650 43154 4330* 4497 4498* 4499 4501* 
STKQSR 021652 43164 4329 4390 4501 
K 001144 ite 4312 4334* 4370" 4372 4378* 4400 
STKSRV 021730 331 43444 
STMPO 001160 13024 8 1587* 1588* 1702* 1705* 1853*  1856* 
3830* 3946* 3950" 5123* 5125 5127 5129 
5738* 5895*  5898* 5920* 5922 5932e  5935* 
STMP1 001162 13034 2893* 3924* 3929% 3935*  3964*  5921% 
STMP2 001164 13044 3955*  3956* 
$™N = 000037 1080# 10834 1572 15744 1614 16164 1635 
1726 17284 1756 1768 1770# 1798 1816 
20334 2109 212 21294 2160 2178 21804 
2373 2392 23944 2467 2486 24884 2568 
282 28234 28 2884 28864 2942 2966 
31054 3180 3204 32064 3316 3337 33394 
3742 3774 3776#@ 3844 3890 38924 3965 
$TPB 001152 12974 4706* 4717 
STPFLG 001157 13014 4647 4717 
STPS 001150 12964 4704 4717 
TR 024256 1400 48694 
STRAP2 024312 48844 4895 
STRP = 14 resis 48974 48984 48994 4900 49014 4902 
STRPAD 024324 4878 4895# 49 
STSTNM 001102 12744 = 1521* 3996 4034* 4067 4099 4121* 
STTYIN 023046 4512 513 4525 4543 4557 45614 
STYPBN= **eeee U 4901 
STYPDS 023604 47294 4900 
STYPE 023312 46474 4888 4896 
STYPEC 023462 4460 4668 4675 4682 46874 
STYPEX Fe 4710 4712 47154 
$TYPOC 024054 48144 4897 
STYPON 024070 813 48164 4899 
$TYPOS 024030 48094 4898 
SXOFF = 000023 4692 4717 
$XON_ = 000021 4346 4699 4717 
SXTSTR 020574 40864 


re et woo" 


4697 


4717 


49064 


4200 


49074 
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SS$GET4= 600000 40504 
SOFILL 0242 4810* ri 4824 48594 
S40CAT ise 4 8 4158 
. = 053260 12364 125 1330" 1 4 14h 131) Ht + 1406 1407 14554 14684 4058 4 
4129 4130 4200 42554 4309 4312 43164 431 43184 45618 4562 45698 46 
4717 47834 4874 & 6 4909 49504 5024# 50374 5042 50484 5056# 50664 51054 
5145@ 5670# 56734 611 64014 75034 76054 76064 
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ABORT 9994 2303 2382 
ALTBUF 1009# 2700 
ALTSTA 1004 2476 2578 
EADR 10194 193 
CHRCNT 10144 091 
N 11998 
DATADR 10244 326 3441 
DATTST  1030# 566 
ENDCOM 11994 
ERR 9444 600 1640 1669 1708 1751 1793 1931 $933 $143 $192 235 2299 2377 2471 
2573 = =2695 2800 2869 2949 3018 3087 3186 321 433 558 752 3848 397 
ERROR 10934 6 1640 1669 1708 1751 1793 1931 $933 2115 $182 $523 299 377 2471 
2573 2695 2800 2869 2949 3018 3087 3186 321 3434 559 752 848 97 
ESCAPE 1199# 
GETPRI 11994 5399 
GETSWR 1199# 14314 
INRDY 9484 1603 
INTIN 10324 3755 
INTOUT 10334 3872 
INTTST 9444 1564 
1OBUF I 9664 1717 1759 
KMCSER 10384 5619 
LININT 9584 1072 
LINOVR 9794 1940 
LRCTST 10144 2953 
T 11998 
T 9944 2168 2239 
NEWTST 1199% 1572 1614 1654 1681 1726 1768 1816 1951 2031 2127 2178 2248 2313 2392 
£58 2588 2711 2821 2884 2966 3035 3103 3204 3337 3452 3581 3774 3890 3994 
NOOUT 9534 1647 
NXM 10144 2810 
PARTAB 9384 4910 
PARTST 10144 3022 
PASS 10344 3994 
POP 11994 4298 4619 4770 
9394 5571 
PUSH 11994 4272 4586 4729 
REPORT 11994 
RSTRCV 9844 2018 
StOPE. 10948 a8 1615 1655 1682 1727 1769 1817 1952 2032 128 2179 249 314 2393 
& 
eee! a4 14 2712 2822 2885 2967 3036 3104 3205 3338 3135 3582 775 891 3995 
SETPRI 11994 4490 
Ah rp awd 4897 4898 4899 4900 4902 4904 4905 4906 4907 4908 
SKIP 11994 1635 1713 175 1798 1937 2009 108 2160 230 294 2373 = 2467 = 2567 
2689 2804 2864 2941 3011 3080 3179 3316 3159 3562 741 4 3965 4012 
SLASH 11994 
STARS 11998 1267 1311 1564 1570 1572 1603 161 1614 1647 165 1654 167, 1678 68 
1681 
1717 1723 1726 1759 1765 1768 1801 1813 1816 1940 1928 1951 Hf sess 2031 
a a 
2963 = 2966 $025 $032 3035 092 $100 $105 $194 201 $554 $357 $534 3839 42 





ee 


— — 
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CZ2KMEA.P11 
3449 
4202 
SwR 11998 
TABLES 10684 
TE 10144 
TRATRP 48884 
TYPBIN 11994 
TYPDEC 11994 
TY 11994 
TY 11994 
TYPOCS 11994 
TYPOCT 11994 
TYPTXT 11994 
5086 
XRTST 9708 
SCL 10404 
SCLRTA 10494 
$GETCO 9444 
SGETCS 1054# 
2948 
SGETKM 10634 
SGETLI 10574 
2518 
SGETPH 9444 
SINPDU 10624 
SINTAL 10484 
SINTKM 10404 
2596 
SINTLI 10414 
SINTLN 10504 
3601 
SINTRE 10604 
SINTTR 10614 
SLRSET 10554 
10584 
SPARAM 9384 
SPARCK 10664 
SREQNC 10454 
SREQNI 10464 
SRE 10424 
SREQNT 10434 
SREQNX 10474 
SREQOU 10564 
2854 
SRIN 10524 
3055 
SSTCLK 10514 
3603 
SSYNTI 10644 
STSTDA 10594 
STSTN 9444 
2485 
$XIN 10534 
2990 
SSCMRE 12654 
SSCMIM 12654 


Nene & 
VSR YSSae 
4 yp = ty 5 


yvo vse 
SS=5a5 


NIWIWIW = UR PU OY 
VRUVaSVeQuane 
QMO MN & 
SS AUNOMONWOO—NO 


—W= hy Pf = ys 

CO COODMINNAOS hr 

a = ONWNOW oO 
SowuonnNvoworn 


Ww 


mo=— —w 
Uw An 
on NO 
Nm Co-— 


3567 
4311 
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3771 
4479 


5807 


3774 
4503 


5880 
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PAGE 161 
RO NAMES 

387, 3885 
457 4632 
5021 5034 
5662 5666 
2234 2298 
2159 = 2228 
3178 = 313 
2430 3 8=—- 2534 
1958 2038 
3248 3357 
2830 8§=2901 
2357 = 2444 
3298 3632 
241 2609 
3938 

2259 = 2722 
3812 

1815 1950 
3102 3203 
439 $305 
920 942 


5039 


2376 
2292 
3739 
2636 


2134 
3472 


2980 


3994 
4786 


5045 


2470 
2336 
5765 
5751 


2185 
3599 


3049 


4863 


5053 


2572 
2372 
5794 
5814 


2255 
3781 


3131 


$392 


5063 


2694 
2415 


5835 


2320 
3804 


3250 


4064 


5068 


2799 


2466 


5887 


2399 
3820 


3360 


oye 


SEQ 0159 
4132 


5081 


2867 


2509 


2494 
3897 


3475 


2796 
2986 
3477 


2391 
2913 
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SSESCA 11998 

ce ae eee ere ee ee a a ee 
4906 4907 4908 
at 


1 
25 2711 2821 2884 2966 3 
SSSET Ee 4897 sere 4899 4900 490 4904 490 + 308 296 57326672568 
: 3 : 742 844 965 4012 


1 
2690 2805 2864 2942 3012 3081 3 


-KT11 10708 1199 
- SETLN 9384 5614 
SETUP 10704 1265 
~SWRHI 10704 

-SCMTA 10704 1265 
- SEOP 10704 4023 
-SERRO 10704 4130 
-SERRT 10704 rit 
- SGETK 9384 5318 
-SRDDE 10704 4576 
-SRDOC 10708 4256 
-SREAD 10704 4309 


- ABS. 053260 000 


ERRORS DETECTED: 0 
CZKMEA , CZ2KMEA/CRF /SOL/NL : TOC=CZKMEA 
RUN-TIME: 134 10 OND 


RUN-TIME RATIO: 1513/250=6.0 
CORE USED: 52k (103 PAGES) 


